



; bank 0x06 of 16 starts at file address 0x018010
; code bytes:	$2F06 (73.47% of bytes in this ROM bank)
; data bytes:	$10B1 (26.08% of bytes in this ROM bank)
; pcm bytes:	$0000 (0.00% of bytes in this ROM bank)
; chr bytes:	$0000 (0.00% of bytes in this ROM bank)
; free bytes:	$0021 (0.20% of bytes in this ROM bank)
; unknown bytes:	$0028 (0.24% of bytes in this ROM bank)
; $3FB7 bytes last seen in RAM bank $8000 - $BFFF (100.00% of bytes seen in this ROM bank, 99.55% of bytes in this ROM bank):
;	$2F06 code bytes (73.80% of bytes seen in this RAM bank, 73.47% of bytes in this ROM bank)
;	$10B1 data bytes (26.20% of bytes seen in this RAM bank, 26.08% of bytes in this ROM bank)

; PRG Bank 0x06: handlers for main COMMAND menu options (TALK, SPELL, STATUS, ITEM, SEARCH, and EQUIP) including pretty much anything that is required input to or happens as a result of those commands; also includes code and data for gluing together irregularly shaped dungeon maps, starting and saving a game, text for items/spells/monster names, and the ending sequence

; [bank start] -> data
; possible external indexed data load target (from $0F:$F3ED, $0F:$FF28)
; external indirect data load target (via $08:$80CC, $0A:$80F5, $0A:$813E, $0F:$F052, $0F:$F83D)
0x018010|$06:$8000:12
; possible external indexed data load target (from $0F:$F3F2, $0F:$FF2D)
0x018011|$06:$8001:   A6	; $06:$A612
; indirect data load target (via $B0A8)
; external indirect data load target (via $02:$B74E, $0F:$FD25, $0F:$FD98)
0x018012|$06:$8002:09 A8	; $06:$A809
; -> $06:$A843: display and handle main game menu
; external indirect data load target (via $0F:$C6C7)
0x018014|$06:$8004:43 A8	; $06:$A843; display and handle main game menu
; -> $06:$ABC7: copy save data from save data buffer at $7000 to system RAM; update Don Mahone quest status if applicable
; external indirect data load target (via $0F:$C6F9)
0x018016|$06:$8006:C7 AB	; $06:$ABC7; copy save data from save data buffer at $7000 to system RAM; update Don Mahone quest status if applicable
; external indirect data load target (via $0F:$D15F, $0F:$D171)
0x018018|$06:$8008:5F A8	; $06:$A85F
; -> $06:$A896: copy Midenhall's full name from save slot in $75DB to $0100 in reverse
; external indirect data load target (via $0F:$EF5B)
0x01801A|$06:$800A:96 A8	; $06:$A896; copy Midenhall's full name from save slot in $75DB to $0100 in reverse
; -> $06:$A8AA: given current game save slot in $75DB, return Midenhall's level in that save game in A/$0E
; external indirect data load target (via $0F:$EE09)
0x01801C|$06:$800C:AA A8	; $06:$A8AA; given current game save slot in $75DB, return Midenhall's level in that save game in A/$0E
0x01801E|$06:$800E:B7 A8	; $06:$A8B7
; -> $06:$ADFC: given a selected list index in A, an item type in X, and a hero ID in $4A, set A to the A'th item of type X in hero $4A's inventory
; external indirect data load target (via $0F:$F4E6, $0F:$F5E4, $0F:$F614)
0x018020|$06:$8010:FC AD	; $06:$ADFC; given a selected list index in A, an item type in X, and a hero ID in $4A, set A to the A'th item of type X in hero $4A's inventory
; -> $06:$AE30: given hero ID - 1 in $4A and field spell menu selection index in A, return spell ID in A
; external indirect data load target (via $0F:$F5FA)
0x018022|$06:$8012:30 AE	; $06:$AE30; given hero ID - 1 in $4A and field spell menu selection index in A, return spell ID in A
; -> $06:$AE3D: given hero ID - 1 in $4A and battle spell menu selection index in A, return spell ID in A
; external indirect data load target (via $0F:$F4AC)
0x018024|$06:$8014:3D AE	; $06:$AE3D; given hero ID - 1 in $4A and battle spell menu selection index in A, return spell ID in A
0x018026|$06:$8016:86 AE	; $06:$AE86
; external indirect data load target (via $0F:$F0BF)
0x018028|$06:$8018:7F AF	; $06:$AF7F
0x01802A|$06:$801A:8E AF	; $06:$AF8E
; -> $06:$A88F: copy Midenhall's short name from save slot in A to $0100 in reverse
; external indirect data load target (via $0F:$EE7E)
0x01802C|$06:$801C:8F A8	; $06:$A88F; copy Midenhall's short name from save slot in A to $0100 in reverse
; -> $06:$A885: copy save data from system RAM to per-game save data
; external indirect data load target (via $0F:$C6DA)
0x01802E|$06:$801E:85 A8	; $06:$A885; copy save data from system RAM to per-game save data
; -> $06:$AE4A: given spell ID in A, set A to spell name index
; external indirect data load target (via $02:$BEA4)
0x018030|$06:$8020:4A AE	; $06:$AE4A; given spell ID in A, set A to spell name index
; -> $06:$B2CA: Item list part 1, line 1
; external indirect data load target (via $0F:$F316)
0x018032|$06:$8022:CA B2	; $06:$B2CA; Item list part 1, line 1
; -> $06:$B4B2: Item list part 1, line 2
; external indirect data load target (via $0F:$F317)
0x018034|$06:$8024:B2 B4	; $06:$B4B2; Item list part 1, line 2
; -> $06:$B624: Spell name list
; data load target (from $F3AB)
0x018036|$06:$8026:24 B6	; $06:$B624; Spell name list
; -> $06:$B718: Monster list part 1, line 1
; external indirect data load target (via $0F:$F3DE)
0x018038|$06:$8028:18 B7	; $06:$B718; Monster list part 1, line 1
; -> $06:$B945: Monster list part 1, line 2
; external indirect data load target (via $0F:$F3DF)
0x01803A|$06:$802A:45 B9	; $06:$B945; Monster list part 1, line 2
0x01803C|$06:$802C:43 BA	; $06:$BA43; tiles for redrawing the part of the main COMMAND menu obscured by the EQUIP sub-menu when the EQUIP sub-menu is closed; (only?) read during battle where there is no main COMMAND menu
0x01803E|$06:$802E:83 BA	; $06:$BA83
; -> $06:$B3BE: Item list part 2, line 1
; external indirect data load target (via $0F:$F318)
0x018040|$06:$8030:BE B3	; $06:$B3BE; Item list part 2, line 1
; -> $06:$B57C: Item list part 2, line 2
; external indirect data load target (via $0F:$F319)
0x018042|$06:$8032:7C B5	; $06:$B57C; Item list part 2, line 2
; -> $06:$B85E: Monster list part 2, line 1
; external indirect data load target (via $0F:$F3E0)
0x018044|$06:$8034:5E B8	; $06:$B85E; Monster list part 2, line 1
; -> $06:$B9D5: Monster list part 2, line 2
; external indirect data load target (via $0F:$F3E1)
0x018046|$06:$8036:D5 B9	; $06:$B9D5; Monster list part 2, line 2
; external indirect data load target (via $0F:$C897)
0x018048|$06:$8038:3D BB	; $06:$BB3D
; external indirect data load target (via $0F:$C889)
0x01804A|$06:$803A:A3 BA	; $06:$BAA3
0x01804C|$06:$803C:1A A6	; $06:$A61A
; external indirect data load target (via $0F:$D359)
0x01804E|$06:$803E:3D BC	; $06:$BC3D
; external indirect data load target (via $0F:$CC9E)
0x018050|$06:$8040:8D BC	; $06:$BC8D
0x018052|$06:$8042:E1 A3	; $06:$A3E1; pointers to warp spaces for irregularly-shaped maps
; external indirect data load target (via $0F:$D2FA)
0x018054|$06:$8044:96 BD	; $06:$BD96
; -> $06:$BEED: X = 1 => CLC and update $0C-$0D to warp point data to use if Outside allowed from current map, SEC otherwise, X = 2 => CLC and update $0C-$0D to warp point data to use if Return allowed from current map, SEC otherwise, X = 3 => disembark from ship and update ship position based on last save point ID $48
; external indirect data load target (via $0F:$D2EA)
0x018056|$06:$8046:ED BE	; $06:$BEED; X = 1 => CLC and update $0C-$0D to warp point data to use if Outside allowed from current map, SEC otherwise, X = 2 => CLC and update $0C-$0D to warp point data to use if Return allowed from current map, SEC otherwise, X = 3 => disembark from ship and update ship position based on last save point ID $48

; data -> code
; control flow target (from $8056)
; external control flow target (from $0F:$C70F)
; call to code in a different bank ($0F:$C1DC)
0x018058|$06:$8048:20 DC C1	JSR $C1DC  	; set $6007 = #$00, set $00 = #$01, wait for interrupt, set $00 = #$FF
0x01805B|$06:$804B:A5 03   	LDA $03    	; game clock?
0x01805D|$06:$804D:29 0F   	AND #$0F   
0x01805F|$06:$804F:C9 01   	CMP #$01   
0x018061|$06:$8051:F0 06   	BEQ $8059  
; call to code in a different bank ($0F:$CF64)
0x018063|$06:$8053:20 64 CF	JSR $CF64  
0x018066|$06:$8056:4C 48 80	JMP $8048  

; control flow target (from $8051)
0x018069|$06:$8059:A9 FF   	LDA #$FF   
0x01806B|$06:$805B:85 35   	STA $35    	; flag indicating whether any menu is currently open
0x01806D|$06:$805D:A9 06   	LDA #$06   
0x01806F|$06:$805F:85 94   	STA $94    	; return bank for various function calls, doubles as index of selected option for multiple-choice menus
; call to code in a different bank ($0F:$EB76)
0x018071|$06:$8061:20 76 EB	JSR $EB76  	; open menu specified by next byte

; code -> data
; indirect data load target
0x018074|$06:$8064:00	; Menu ID #$00: Mini status window, bottom

; data -> code
; call to code in a different bank ($0F:$EB76)
0x018075|$06:$8065:20 76 EB	JSR $EB76  	; open menu specified by next byte

; code -> data
; indirect data load target
0x018078|$06:$8068:06	; Menu ID #$06: Map menu: main COMMAND menu

; data -> code
0x018079|$06:$8069:C9 FF   	CMP #$FF   
0x01807B|$06:$806B:D0 0A   	BNE $8077  	; given a main COMMAND menu selection index in A, execute the handler for that menu function
; exit COMMAND menu
; control flow target (from $809A, $89D1, $8A09, $8B0C, $8B3D, $8B9F, $9545, $9558)
0x01807D|$06:$806D:A9 01   	LDA #$01   
; call to code in a different bank ($0F:$CF6A)
0x01807F|$06:$806F:20 6A CF	JSR $CF6A  	; wipe selected menu region
0x018082|$06:$8072:A9 00   	LDA #$00   
0x018084|$06:$8074:85 35   	STA $35    	; flag indicating whether any menu is currently open
0x018086|$06:$8076:60      	RTS        

; given a main COMMAND menu selection index in A, execute the handler for that menu function
; control flow target (from $806B)
0x018087|$06:$8077:0A      	ASL        
0x018088|$06:$8078:A8      	TAY        
0x018089|$06:$8079:B9 86 80	LDA $8086,Y	; COMMAND menu command handler pointers
0x01808C|$06:$807C:85 0C   	STA $0C    
0x01808E|$06:$807E:B9 87 80	LDA $8087,Y
0x018091|$06:$8081:85 0D   	STA $0D    
0x018093|$06:$8083:6C 0C 00	JMP ($000C)


; code -> data
; COMMAND menu command handler pointers
; indexed data load target (from $8079)
0x018096|$06:$8086:A8
; indexed data load target (from $807E)
0x018097|$06:$8087:   80	; $06:$80A8; COMMAND menu TALK command handler
0x018098|$06:$8088:36 8B	; $06:$8B36; COMMAND menu SPELL command handler
0x01809A|$06:$808A:CA 89	; $06:$89CA; COMMAND menu STATUS command handler
0x01809C|$06:$808C:5B 95	; $06:$955B; COMMAND menu ITEM command handler
0x01809E|$06:$808E:17 9B	; $06:$9B17; COMMAND menu SEARCH handler
0x0180A0|$06:$8090:02 8A	; $06:$8A02; COMMAND menu EQUIP handler

; data -> code
; wait until all joypad buttons are released and then some button pressed then wipe menus and exit COMMAND menu
; control flow target (from $80BC, $80C7, $80DA, $80F3, $8139, $816F, $81AF, $8295, $82A0, $82C0, $82D2, $8385, $83B6, $8567, $86D2, $89FF, $8AFC, $8B52, $8B66, $8B87, $8C00, $8C2D, $8C91, $8C9C, $8F4B, $8F67)
0x0180A2|$06:$8092:20 9D 80	JSR $809D  	; wait until all joypad buttons are released and then some button pressed
; wipe menus and exit COMMAND menu
; control flow target (from $80E8, $9071, $90C9, $91C3, $9345)
0x0180A5|$06:$8095:A9 00   	LDA #$00   
; call to code in a different bank ($0F:$CF6A)
0x0180A7|$06:$8097:20 6A CF	JSR $CF6A  	; wipe selected menu region
0x0180AA|$06:$809A:4C 6D 80	JMP $806D  	; exit COMMAND menu

; wait until all joypad buttons are released and then some button pressed
; control flow target (from $8092, $80A0, $89D9, $89F2, $954D, $A257)
; call to code in a different bank ($0F:$D13D)
0x0180AD|$06:$809D:20 3D D1	JSR $D13D  	; wait for interrupt, read joypad data into $2F and A
0x0180B0|$06:$80A0:D0 FB   	BNE $809D  	; wait until all joypad buttons are released and then some button pressed; loop until no buttons pressed
; control flow target (from $80A5)
; call to code in a different bank ($0F:$D13D)
0x0180B2|$06:$80A2:20 3D D1	JSR $D13D  	; wait for interrupt, read joypad data into $2F and A
0x0180B5|$06:$80A5:F0 FB   	BEQ $80A2  	; loop until some button pressed
0x0180B7|$06:$80A7:60      	RTS        

; COMMAND menu TALK command handler
; indirect control flow target (via $8086)
0x0180B8|$06:$80A8:AD 40 05	LDA $0540  	; NPC #$00 ? + direction nybble
0x0180BB|$06:$80AB:29 03   	AND #$03   
; call to code in a different bank ($0F:$CF70)
0x0180BD|$06:$80AD:20 70 CF	JSR $CF70  	; -> $02:$B141
0x0180C0|$06:$80B0:A5 D0   	LDA $D0    	; Malroth status flag (#$FF = defeated, #$00 = alive, others = countdown to battle)
0x0180C2|$06:$80B2:10 0B   	BPL $80BF  	; pre-Malroth dialogue
0x0180C4|$06:$80B4:AD F3 05	LDA $05F3  	; target NPC sprite ID; post-Malroth, most dialogue becomes based on NPC sprite ID
0x0180C7|$06:$80B7:F0 0A   	BEQ $80C3  	; no sprite ID => nobody to talk to
; call to code in a different bank ($0F:$D334)
0x0180C9|$06:$80B9:20 34 D3	JSR $D334  	; post-Malroth dialogue
0x0180CC|$06:$80BC:4C 92 80	JMP $8092  	; wait until all joypad buttons are released and then some button pressed then wipe menus and exit COMMAND menu

; pre-Malroth dialogue
; control flow target (from $80B2)
0x0180CF|$06:$80BF:A5 0C   	LDA $0C    	; dialogue ID
0x0180D1|$06:$80C1:D0 07   	BNE $80CA  	; #$00 => nobody to talk to
; control flow target (from $80B7, $8216)
; call to code in a different bank ($0F:$F6F0)
0x0180D3|$06:$80C3:20 F0 F6	JSR $F6F0  	; open main dialogue window and display string ID specified by byte following JSR + #$0100

; code -> data
; indirect data load target
0x0180D6|$06:$80C6:00	; String ID #$0100: No one is in that direction.[end-FC]

; data -> code
0x0180D7|$06:$80C7:4C 92 80	JMP $8092  	; wait until all joypad buttons are released and then some button pressed then wipe menus and exit COMMAND menu

; control flow target (from $80C1)
0x0180DA|$06:$80CA:C9 D7   	CMP #$D7   
0x0180DC|$06:$80CC:D0 0F   	BNE $80DD  
0x0180DE|$06:$80CE:20 CB 9A	JSR $9ACB  	; open dialogue window
0x0180E1|$06:$80D1:A9 00   	LDA #$00   	; Midenhall; useless since string doesn't use [name] control code
; call to code in a different bank ($0F:$FC50)
0x0180E3|$06:$80D3:20 50 FC	JSR $FC50  	; print name of hero given by low 2 bits of A to $6119, terminated by #$FA
; call to code in a different bank ($0F:$FA2A)
0x0180E6|$06:$80D6:20 2A FA	JSR $FA2A  	; display string ID specified by next byte

; code -> data
; indirect data load target
0x0180E9|$06:$80D9:76	; String ID #$0076: ‘Go now, my heir! Our fate is now in thy hands[.’][end-FC]

; data -> code
0x0180EA|$06:$80DA:4C 92 80	JMP $8092  	; wait until all joypad buttons are released and then some button pressed then wipe menus and exit COMMAND menu

; control flow target (from $80CC)
0x0180ED|$06:$80DD:C9 D9   	CMP #$D9   
0x0180EF|$06:$80DF:D0 0A   	BNE $80EB  
; call to code in a different bank ($0F:$F6F6)
0x0180F1|$06:$80E1:20 F6 F6	JSR $F6F6  	; open main dialogue window and display string ID specified by byte following JSR + #$0200

; code -> data
; indirect data load target
0x0180F4|$06:$80E4:9A	; String ID #$029A: ‘Would thou allow me to escape and tell Hargon many tidings?’[wait][line]‘Oh, but thou art such a fool[.’][wait][end-FC]

; data -> code
; call to code in a different bank ($0F:$D1E5)
0x0180F5|$06:$80E5:20 E5 D1	JSR $D1E5  	; trigger Fixed Battle #$01: 1 Evil Clown (Map ID #$04: Midenhall B1)
0x0180F8|$06:$80E8:4C 95 80	JMP $8095  	; wipe menus and exit COMMAND menu

; control flow target (from $80DF)
0x0180FB|$06:$80EB:C9 D8   	CMP #$D8   
0x0180FD|$06:$80ED:D0 07   	BNE $80F6  
; call to code in a different bank ($0F:$F6EA)
0x0180FF|$06:$80EF:20 EA F6	JSR $F6EA  	; open main dialogue window and display string ID specified by byte following JSR

; code -> data
; indirect data load target
0x018102|$06:$80F2:67	; String ID #$0067: ‘Open now the treasure chest[.’][end-FC]

; data -> code
0x018103|$06:$80F3:4C 92 80	JMP $8092  	; wait until all joypad buttons are released and then some button pressed then wipe menus and exit COMMAND menu

; control flow target (from $80ED)
0x018106|$06:$80F6:C9 01   	CMP #$01   
0x018108|$06:$80F8:D0 62   	BNE $815C  
0x01810A|$06:$80FA:20 CB 9A	JSR $9ACB  	; open dialogue window
0x01810D|$06:$80FD:A9 01   	LDA #$01   	; Cannock; useless since string doesn't use [name] control code
; call to code in a different bank ($0F:$FC50)
0x01810F|$06:$80FF:20 50 FC	JSR $FC50  	; print name of hero given by low 2 bits of A to $6119, terminated by #$FA
; call to code in a different bank ($0F:$FA2E)
0x018112|$06:$8102:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x018115|$06:$8105:55	; String ID #$0155: ‘Hail, friend! I am Prince [name] of Cannock[.’][wait][end-FC]

; data -> code
0x018116|$06:$8106:A9 00   	LDA #$00   
; call to code in a different bank ($0F:$FC50)
0x018118|$06:$8108:20 50 FC	JSR $FC50  	; print name of hero given by low 2 bits of A to $6119, terminated by #$FA
; call to code in a different bank ($0F:$FA2E)
0x01811B|$06:$810B:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x01811E|$06:$810E:56	; String ID #$0156: ‘Art thou my cousin from Midenhall? Ah, it is as I guessed[.’][wait][line]‘I have been seeking thee so that together we may oppose Hargon[.’][wait][line]‘Come, let us go forth[.’][end-FC]

; data -> code
0x01811F|$06:$810F:A9 07   	LDA #$07   	; Music ID #$07: add party member BGM
; call to code in a different bank ($0F:$C58D)
0x018121|$06:$8111:20 8D C5	JSR $C58D  	; play PCM specified by A (>= #$80 = sound effect [SFX], < #$80 = background music [BGM]), wait for it to finish, then play previous BGM
0x018124|$06:$8114:AD C0 05	LDA $05C0  	; NPC #$10 motion nybble + direction nybble
0x018127|$06:$8117:29 03   	AND #$03   
0x018129|$06:$8119:0A      	ASL        
0x01812A|$06:$811A:0A      	ASL        
0x01812B|$06:$811B:0A      	ASL        
0x01812C|$06:$811C:AA      	TAX        
0x01812D|$06:$811D:A0 00   	LDY #$00   
; control flow target (from $8129)
0x01812F|$06:$811F:BD 3C 81	LDA $813C,X
0x018132|$06:$8122:99 42 05	STA $0542,Y	; NPC #$00 ?
0x018135|$06:$8125:C8      	INY        
0x018136|$06:$8126:E8      	INX        
0x018137|$06:$8127:C0 08   	CPY #$08   
0x018139|$06:$8129:D0 F4   	BNE $811F  
0x01813B|$06:$812B:A9 84   	LDA #$84   	; add Cannock to party
0x01813D|$06:$812D:8D 3F 06	STA $063F  	; Cannock status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence)
0x018140|$06:$8130:A9 FF   	LDA #$FF   
0x018142|$06:$8132:8D C1 05	STA $05C1  	; NPC #$10 sprite ID
0x018145|$06:$8135:A9 03   	LDA #$03   
0x018147|$06:$8137:85 CA   	STA $CA    	; Cannock runaround quest status (0 = start of game, 0 -> 1 = talked to King Cannock, 1 -> 2 = said YES to seeking Cannock in Spring of Bravery, 2 -> 3 = talked to King Midenhall; adding Cannock sets this to 3; some code checks for 4)
0x018149|$06:$8139:4C 92 80	JMP $8092  	; wait until all joypad buttons are released and then some button pressed then wipe menus and exit COMMAND menu


; code -> data
; indexed data load target (from $811F, $817D)
0x01814C|$06:$813C:80 7F 00 01 00 00 00 01
0x018154|$06:$8144:70 6F FF 00 00 00 01 01
0x01815C|$06:$814C:80 5F 00 FF 00 00 02 01
0x018164|$06:$8154:90 6F 01 00 00 00 03 01

; data -> code
; control flow target (from $80F8)
0x01816C|$06:$815C:C9 02   	CMP #$02   
0x01816E|$06:$815E:D0 42   	BNE $81A2  
0x018170|$06:$8160:20 CB 9A	JSR $9ACB  	; open dialogue window
; call to code in a different bank ($0F:$FA32)
0x018173|$06:$8163:20 32 FA	JSR $FA32  	; display string ID specified by next byte + #$0200

; code -> data
; indirect data load target
0x018176|$06:$8166:A8	; String ID #$02A8: ‘Woof-woof!’[end-FC]

; data -> code
0x018177|$06:$8167:20 72 81	JSR $8172  
0x01817A|$06:$816A:A9 09   	LDA #$09   	; Sprite ID $#09: Dog
0x01817C|$06:$816C:8D 51 05	STA $0551  	; NPC #$02 sprite ID
0x01817F|$06:$816F:4C 92 80	JMP $8092  	; wait until all joypad buttons are released and then some button pressed then wipe menus and exit COMMAND menu

; control flow target (from $8167, $9727)
0x018182|$06:$8172:AD 58 05	LDA $0558  	; NPC #$03 motion nybble + direction nybble
0x018185|$06:$8175:29 03   	AND #$03   
0x018187|$06:$8177:0A      	ASL        
0x018188|$06:$8178:0A      	ASL        
0x018189|$06:$8179:0A      	ASL        
0x01818A|$06:$817A:AA      	TAX        
0x01818B|$06:$817B:A0 00   	LDY #$00   
; control flow target (from $8187)
0x01818D|$06:$817D:BD 3C 81	LDA $813C,X
0x018190|$06:$8180:99 4A 05	STA $054A,Y	; NPC #$01 scripted motion low byte
0x018193|$06:$8183:C8      	INY        
0x018194|$06:$8184:E8      	INX        
0x018195|$06:$8185:C0 08   	CPY #$08   
0x018197|$06:$8187:D0 F4   	BNE $817D  
0x018199|$06:$8189:A9 FF   	LDA #$FF   
0x01819B|$06:$818B:8D 59 05	STA $0559  	; NPC #$03 sprite ID
0x01819E|$06:$818E:A0 08   	LDY #$08   
0x0181A0|$06:$8190:4C 93 81	JMP $8193  	; useless op

; control flow target (from $8190)
0x0181A3|$06:$8193:20 97 81	JSR $8197  
0x0181A6|$06:$8196:C8      	INY        
; control flow target (from $8193)
0x0181A7|$06:$8197:B9 44 05	LDA $0544,Y	; NPC #$01 ?
0x0181AA|$06:$819A:38      	SEC        
0x0181AB|$06:$819B:F9 3C 05	SBC $053C,Y	; NPC #$00 ?
0x0181AE|$06:$819E:99 44 05	STA $0544,Y	; NPC #$01 ?
0x0181B1|$06:$81A1:60      	RTS        

; control flow target (from $815E)
0x0181B2|$06:$81A2:C9 03   	CMP #$03   
0x0181B4|$06:$81A4:D0 0C   	BNE $81B2  
; call to code in a different bank ($0F:$F6F6)
0x0181B6|$06:$81A6:20 F6 F6	JSR $F6F6  	; open main dialogue window and display string ID specified by byte following JSR + #$0200

; code -> data
; indirect data load target
0x0181B9|$06:$81A9:4D	; String ID #$024D: ‘I bid thee welcome to Wellgarth Town[.’][wait][line]‘I shall sing for thee[.’][end-FC]

; data -> code
0x0181BA|$06:$81AA:A9 0C   	LDA #$0C   	; Music ID #$0C: game menu / Wellgarth singer BGM
; call to code in a different bank ($0F:$C561)
0x0181BC|$06:$81AC:20 61 C5	JSR $C561  	; play PCM specified by A (>= #$80 = sound effect [SFX], < #$80 = background music [BGM])
0x0181BF|$06:$81AF:4C 92 80	JMP $8092  	; wait until all joypad buttons are released and then some button pressed then wipe menus and exit COMMAND menu

; control flow target (from $81A4)
0x0181C2|$06:$81B2:C9 04   	CMP #$04   
0x0181C4|$06:$81B4:D0 03   	BNE $81B9  
0x0181C6|$06:$81B6:4C 34 97	JMP $9734  	; unused since no NPC has dialogue ID #$04

; control flow target (from $81B4)
0x0181C9|$06:$81B9:C9 05   	CMP #$05   
0x0181CB|$06:$81BB:D0 08   	BNE $81C5  
0x0181CD|$06:$81BD:20 CB 9A	JSR $9ACB  	; open dialogue window
0x0181D0|$06:$81C0:A9 06   	LDA #$06   	; Save Point ID #$06: Hamlin
0x0181D2|$06:$81C2:4C E3 93	JMP $93E3  	; update save point $48 to A, run through the whole save point sequence

; control flow target (from $81BB)
0x0181D5|$06:$81C5:C9 0A   	CMP #$0A   	; useless op
0x0181D7|$06:$81C7:B0 00   	BCS $81C9  	; useless op
; control flow target (from $81C7)
0x0181D9|$06:$81C9:C9 14   	CMP #$14   
0x0181DB|$06:$81CB:B0 03   	BCS $81D0  
0x0181DD|$06:$81CD:4C 19 82	JMP $8219  	; handler for dialogue IDs #$0A-#$13 (Innkeepers)

; control flow target (from $81CB)
0x0181E0|$06:$81D0:C9 1C   	CMP #$1C   
0x0181E2|$06:$81D2:B0 03   	BCS $81D7  
0x0181E4|$06:$81D4:4C AD 82	JMP $82AD  	; handler for dialogue IDs #$14-#$1B (Weapon Shops)

; control flow target (from $81D2)
0x0181E7|$06:$81D7:C9 27   	CMP #$27   
0x0181E9|$06:$81D9:B0 03   	BCS $81DE  
0x0181EB|$06:$81DB:4C 9A 83	JMP $839A  	; handler for dialogue IDs #$1C-#$26 (Item Shops)

; control flow target (from $81D9)
0x0181EE|$06:$81DE:C9 28   	CMP #$28   
0x0181F0|$06:$81E0:B0 03   	BCS $81E5  
0x0181F2|$06:$81E2:4C 4E 85	JMP $854E  	; handler for dialogue ID #$27 (House of Healing)

; control flow target (from $81E0)
0x0181F5|$06:$81E5:C9 29   	CMP #$29   
0x0181F7|$06:$81E7:B0 03   	BCS $81EC  
0x0181F9|$06:$81E9:4C C0 86	JMP $86C0  	; handler for dialogue ID #$28 (Lottery)

; control flow target (from $81E7)
0x0181FC|$06:$81EC:C9 95   	CMP #$95   
0x0181FE|$06:$81EE:B0 03   	BCS $81F3  
0x018200|$06:$81F0:4C 06 8E	JMP $8E06  	; handler for dialogue IDs #$29-#$94 (open dialogue window and display string specified by A + #$1D7, i.e. String IDs #$0200-#$026B)

; control flow target (from $81EE)
0x018203|$06:$81F3:C9 9D   	CMP #$9D   
0x018205|$06:$81F5:B0 03   	BCS $81FA  
0x018207|$06:$81F7:4C 44 8E	JMP $8E44  	; handler for dialogue IDs #$95-#$9C (open dialogue window, display string specified by A + #$1D9, display YES/NO menu, and display string corresponding to selected option)

; control flow target (from $81F5)
0x01820A|$06:$81FA:C9 C3   	CMP #$C3   
0x01820C|$06:$81FC:B0 03   	BCS $8201  
0x01820E|$06:$81FE:4C 6A 8E	JMP $8E6A  	; handler for dialogue IDs #$9D-#$C2 (town NPCs with complex logic)

; control flow target (from $81FC)
0x018211|$06:$8201:C9 CD   	CMP #$CD   
0x018213|$06:$8203:B0 03   	BCS $8208  
0x018215|$06:$8205:4C B0 94	JMP $94B0  	; handler for dialogue IDs #$C3-#$CC (open dialogue window and display string specified by A - #$73)

; control flow target (from $8203)
0x018218|$06:$8208:C9 D0   	CMP #$D0   
0x01821A|$06:$820A:B0 03   	BCS $820F  
0x01821C|$06:$820C:4C BE 94	JMP $94BE  	; handler for dialogue IDs #$CD-#$CF (open dialogue window, display string specified by A - #$73, display YES/NO menu, and display string corresponding to selected option)

; control flow target (from $820A)
0x01821F|$06:$820F:C9 D9   	CMP #$D9   
0x018221|$06:$8211:B0 03   	BCS $8216  
0x018223|$06:$8213:4C E4 94	JMP $94E4  	; handler for dialogue IDs #$D0-#$D8 (dungeon NPCs with complex logic)

; control flow target (from $8211)
0x018226|$06:$8216:4C C3 80	JMP $80C3  	; unused since #$D9 was handled earlier and no NPC has dialogue ID > #$D9

; handler for dialogue IDs #$0A-#$13 (Innkeepers)
; control flow target (from $81CD)
0x018229|$06:$8219:38      	SEC        
0x01822A|$06:$821A:E9 0A   	SBC #$0A   	; convert to zero-based
0x01822C|$06:$821C:85 49   	STA $49    	; object hero/target/item/string ID $49
0x01822E|$06:$821E:A8      	TAY        
0x01822F|$06:$821F:B9 80 9F	LDA $9F80,Y	; Inn prices per party member
0x018232|$06:$8222:48      	PHA        	; Inn price per party member
; call to code in a different bank ($0F:$F6CE)
0x018233|$06:$8223:20 CE F6	JSR $F6CE  	; return number of party members - 1 in A/X
0x018236|$06:$8226:85 0C   	STA $0C    	; number of party members - 1
0x018238|$06:$8228:E6 0C   	INC $0C    	; number of party members
0x01823A|$06:$822A:68      	PLA        	; Inn price per party member
0x01823B|$06:$822B:20 AC 86	JSR $86AC  	; multiply A by $0C, store results in ($10-$11) and ($8F-$90); consumes $0C
; call to code in a different bank ($0F:$F6F0)
0x01823E|$06:$822E:20 F0 F6	JSR $F6F0  	; open main dialogue window and display string ID specified by byte following JSR + #$0100

; code -> data
; indirect data load target
0x018241|$06:$8231:7B	; String ID #$017B: ‘Welcome to the Village Inn[.’][wait][line]‘It's only [number] piece[(s)] of gold for the night.[line]Dost thou want a room?’[FD][FD][end-FC]

; data -> code
; call to code in a different bank ($0F:$EB76)
0x018242|$06:$8232:20 76 EB	JSR $EB76  	; open menu specified by next byte

; code -> data
; indirect data load target
0x018245|$06:$8235:1B	; Menu ID #$1B: Shop menu: current gold

; data -> code
0x018246|$06:$8236:20 D0 9A	JSR $9AD0  	; open YES/NO menu, return selected option in A
0x018249|$06:$8239:C9 00   	CMP #$00   	; YES
0x01824B|$06:$823B:D0 5F   	BNE $829C  
0x01824D|$06:$823D:20 31 8D	JSR $8D31  	; given gold amount in $8F-$90, decrease party gold by that amount and SEC if possible, CLC otherwise
0x018250|$06:$8240:90 56   	BCC $8298  
; call to code in a different bank ($0F:$EB76)
0x018252|$06:$8242:20 76 EB	JSR $EB76  	; open menu specified by next byte

; code -> data
; indirect data load target
0x018255|$06:$8245:1B	; Menu ID #$1B: Shop menu: current gold

; data -> code
; call to code in a different bank ($0F:$FA2E)
0x018256|$06:$8246:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x018259|$06:$8249:7E	; String ID #$017E: ‘Sleep well[.’][FD][FD][end-FC]

; data -> code
0x01825A|$06:$824A:A2 14   	LDX #$14   
; call to code in a different bank ($0F:$C1EE)
0x01825C|$06:$824C:20 EE C1	JSR $C1EE  	; set $6007 = #$00, set $00 = #$01, wait for X interrupts, set $00 = #$FF
0x01825F|$06:$824F:A9 FF   	LDA #$FF   
0x018261|$06:$8251:85 0D   	STA $0D    
; call to code in a different bank ($0F:$C2EB)
0x018263|$06:$8253:20 EB C2	JSR $C2EB  
0x018266|$06:$8256:A9 01   	LDA #$01   	; Music ID #$01: Inn BGM
; call to code in a different bank ($0F:$C58D)
0x018268|$06:$8258:20 8D C5	JSR $C58D  	; play PCM specified by A (>= #$80 = sound effect [SFX], < #$80 = background music [BGM]), wait for it to finish, then play previous BGM
0x01826B|$06:$825B:20 CC 8D	JSR $8DCC  	; restore full HP to all living party members
0x01826E|$06:$825E:20 EC 8D	JSR $8DEC  	; restore full MP to all living party members
0x018271|$06:$8261:A4 49   	LDY $49    	; object hero/target/item/string ID $49
0x018273|$06:$8263:B9 A3 82	LDA $82A3,Y	; party direction after sleeping at inn (bits 0-1 = Cannock and Moonbrooke direction, 2-3 = Midenhall direction)
0x018276|$06:$8266:29 03   	AND #$03   
0x018278|$06:$8268:18      	CLC        
0x018279|$06:$8269:69 05   	ADC #$05   
0x01827B|$06:$826B:85 45   	STA $45    
; call to code in a different bank ($0F:$CF76)
0x01827D|$06:$826D:20 76 CF	JSR $CF76  
0x018280|$06:$8270:A4 49   	LDY $49    	; object hero/target/item/string ID $49
0x018282|$06:$8272:B9 A3 82	LDA $82A3,Y	; party direction after sleeping at inn (bits 0-1 = Cannock and Moonbrooke direction, 2-3 = Midenhall direction)
0x018285|$06:$8275:4A      	LSR        
0x018286|$06:$8276:4A      	LSR        
0x018287|$06:$8277:8D 40 05	STA $0540  	; NPC #$00 ? + direction nybble
; call to code in a different bank ($0F:$CF64)
0x01828A|$06:$827A:20 64 CF	JSR $CF64  
0x01828D|$06:$827D:A0 00   	LDY #$00   
; control flow target (from $8288)
0x01828F|$06:$827F:B9 E6 C2	LDA $C2E6,Y
0x018292|$06:$8282:99 0D 00	STA $000D,Y
0x018295|$06:$8285:C8      	INY        
0x018296|$06:$8286:C0 05   	CPY #$05   
0x018298|$06:$8288:D0 F5   	BNE $827F  
; call to code in a different bank ($0F:$C2DE)
0x01829A|$06:$828A:20 DE C2	JSR $C2DE  
; call to code in a different bank ($0F:$FA2E)
0x01829D|$06:$828D:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x0182A0|$06:$8290:7F	; String ID #$017F: ‘Ah, good morning.[line]I trust thou art well rested[.’][wait][end-FC]

; data -> code
; call to code in a different bank ($0F:$FA2E)
0x0182A1|$06:$8291:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x0182A4|$06:$8294:80	; String ID #$0180: ‘Goodbye[.’][end-FC]

; data -> code
0x0182A5|$06:$8295:4C 92 80	JMP $8092  	; wait until all joypad buttons are released and then some button pressed then wipe menus and exit COMMAND menu

; control flow target (from $8240)
; call to code in a different bank ($0F:$FA2E)
0x0182A8|$06:$8298:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x0182AB|$06:$829B:7D	; String ID #$017D: ‘Sorry, thou hasn't enough gold[.’][wait][end-FC]

; data -> code
; control flow target (from $823B)
; call to code in a different bank ($0F:$FA2E)
0x0182AC|$06:$829C:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x0182AF|$06:$829F:7C	; String ID #$017C: ‘Farewell, stranger[.’][end-FC]

; data -> code
0x0182B0|$06:$82A0:4C 92 80	JMP $8092  	; wait until all joypad buttons are released and then some button pressed then wipe menus and exit COMMAND menu


; code -> data
; party direction after sleeping at inn (bits 0-1 = Cannock and Moonbrooke direction, 2-3 = Midenhall direction)
; indexed data load target (from $8263, $8272)
0x0182B3|$06:$82A3:04	; Inn ID #$00, Map IDs #$00/#$03: Fake Midenhall/Midenhall 1F
0x0182B4|$06:$82A4:04	; Inn ID #$01, Map ID #$05: Leftwyne
0x0182B5|$06:$82A5:0E	; Inn ID #$02, Map ID #$06: Cannock
0x0182B6|$06:$82A6:0C	; Inn ID #$03, Map ID #$07: Hamlin
0x0182B7|$06:$82A7:04	; Inn ID #$04, Map ID #$0B: Lianport
0x0182B8|$06:$82A8:0C	; Inn ID #$05, Map ID #$0C: Tantegel
0x0182B9|$06:$82A9:0C	; Inn ID #$06, Map ID #$0F: Osterfair
0x0182BA|$06:$82AA:0C	; Inn ID #$07, Map ID #$10: Zahan
0x0182BB|$06:$82AB:0F	; Inn ID #$08, Map ID #$11: Tuhn / Map ID #$14: Wellgarth Underground
0x0182BC|$06:$82AC:0C	; Inn ID #$09, Map ID #$15: Beran

; data -> code
; handler for dialogue IDs #$14-#$1B (Weapon Shops)
; control flow target (from $81D4)
0x0182BD|$06:$82AD:85 49   	STA $49    	; object hero/target/item/string ID $49
0x0182BF|$06:$82AF:C9 18   	CMP #$18   	; Weapon Shop ID #04, Map ID #$0F: Osterfair
0x0182C1|$06:$82B1:D0 10   	BNE $82C3  
0x0182C3|$06:$82B3:AD C0 05	LDA $05C0  	; NPC #$10 motion nybble + direction nybble
0x0182C6|$06:$82B6:29 03   	AND #$03   
0x0182C8|$06:$82B8:C9 01   	CMP #$01   	; Right
0x0182CA|$06:$82BA:F0 07   	BEQ $82C3  	; talking to the shopkeeper from behind the counter, use a different string
; call to code in a different bank ($0F:$F6F6)
0x0182CC|$06:$82BC:20 F6 F6	JSR $F6F6  	; open main dialogue window and display string ID specified by byte following JSR + #$0200

; code -> data
; indirect data load target
0x0182CF|$06:$82BF:CE	; String ID #$02CE: ‘Do not enter this place!’[end-FC]

; data -> code
0x0182D0|$06:$82C0:4C 92 80	JMP $8092  	; wait until all joypad buttons are released and then some button pressed then wipe menus and exit COMMAND menu

; control flow target (from $82B1, $82BA)
; call to code in a different bank ($0F:$F6F0)
0x0182D3|$06:$82C3:20 F0 F6	JSR $F6F0  	; open main dialogue window and display string ID specified by byte following JSR + #$0100

; code -> data
; indirect data load target
0x0182D6|$06:$82C6:5B	; String ID #$015B: ‘We deal in weapons and armor.[line]Dost thou wish to see them?’[FD][FD][end-FC]

; data -> code
0x0182D7|$06:$82C7:20 D0 9A	JSR $9AD0  	; open YES/NO menu, return selected option in A
0x0182DA|$06:$82CA:C9 00   	CMP #$00   	; YES
0x0182DC|$06:$82CC:F0 07   	BEQ $82D5  
; finish weapon transaction
; control flow target (from $82E3, $8318, $8367)
; call to code in a different bank ($0F:$FA2E)
0x0182DE|$06:$82CE:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x0182E1|$06:$82D1:5D	; String ID #$015D: ‘Come again[.’][end-FC]

; data -> code
0x0182E2|$06:$82D2:4C 92 80	JMP $8092  	; wait until all joypad buttons are released and then some button pressed then wipe menus and exit COMMAND menu

; control flow target (from $82CC, $836A)
; call to code in a different bank ($0F:$FA2E)
0x0182E5|$06:$82D5:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x0182E8|$06:$82D8:5C	; String ID #$015C: ‘What would thou purchase?’[FD][FD][end-FC]

; data -> code
0x0182E9|$06:$82D9:A5 49   	LDA $49    	; object hero/target/item/string ID $49
0x0182EB|$06:$82DB:38      	SEC        
0x0182EC|$06:$82DC:E9 14   	SBC #$14   	; convert to Shop ID
; call to code in a different bank ($0F:$F61B)
0x0182EE|$06:$82DE:20 1B F6	JSR $F61B  	; display shop menu item list for shop ID given in A, returning selected item (with Jailor's Key replaced by blank) in A
0x0182F1|$06:$82E1:C9 FF   	CMP #$FF   
0x0182F3|$06:$82E3:F0 E9   	BEQ $82CE  	; finish weapon transaction
0x0182F5|$06:$82E5:20 4D 8D	JSR $8D4D  	; given item ID in A, save it to $96 and set $8F-$90 to purchase price of item, accounting for possible Golden Card discount; decrease party gold by that amount and SEC if possible, CLC otherwise
0x0182F8|$06:$82E8:B0 07   	BCS $82F1  	; branch if price of item was deducted from party gold
; call to code in a different bank ($0F:$FA2E)
0x0182FA|$06:$82EA:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x0182FD|$06:$82ED:5E	; String ID #$015E: ‘Sorry, it seems thou hast not enough gold[.’][wait][end-FC]

; data -> code
0x0182FE|$06:$82EE:4C 5C 83	JMP $835C  

; control flow target (from $82E8)
; call to code in a different bank ($0F:$F6CE)
0x018301|$06:$82F1:20 CE F6	JSR $F6CE  	; return number of party members - 1 in A/X
0x018304|$06:$82F4:C9 00   	CMP #$00   
0x018306|$06:$82F6:D0 0E   	BNE $8306  	; if Midenhall is alone, no need to ask who to give it to
0x018308|$06:$82F8:20 6D 83	JSR $836D  	; given hero ID in A and item ID in $96, try to add item to first empty slot in hero's inventory; if unable to add, refund purchase, pop JSR return address and JMP $8092 instead
0x01830B|$06:$82FB:A5 96   	LDA $96    	; temp storage for item/spell/type/etc. IDs
0x01830D|$06:$82FD:85 95   	STA $95    	; ID for [item] and [spell] control codes
; call to code in a different bank ($0F:$FA2E)
0x01830F|$06:$82FF:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x018312|$06:$8302:5F	; String ID #$015F: ‘The [item], is it? Good choice and many thanks[.’][wait][end-FC]

; data -> code
0x018313|$06:$8303:4C 4C 83	JMP $834C  

; control flow target (from $82F6)
0x018316|$06:$8306:A5 96   	LDA $96    	; temp storage for item/spell/type/etc. IDs
0x018318|$06:$8308:85 95   	STA $95    	; ID for [item] and [spell] control codes
; call to code in a different bank ($0F:$FA2E)
0x01831A|$06:$830A:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x01831D|$06:$830D:62	; String ID #$0162: ‘The [item]? Who will take this?’[FD][FD][end-FC]

; data -> code
; call to code in a different bank ($0F:$F595)
0x01831E|$06:$830E:20 95 F5	JSR $F595  	; display appropriate shop BUY/SELL hero select menu
0x018321|$06:$8311:C9 FF   	CMP #$FF   
0x018323|$06:$8313:D0 06   	BNE $831B  
; control flow target (from $8330)
0x018325|$06:$8315:20 88 83	JSR $8388  	; add the number at $8F-$90 to party gold; no check for overflow, so this is only safe to use when reverting a sale
0x018328|$06:$8318:4C CE 82	JMP $82CE  	; finish weapon transaction

; control flow target (from $8313)
0x01832B|$06:$831B:85 97   	STA $97    	; subject hero ID $97
0x01832D|$06:$831D:20 A3 A3	JSR $A3A3  	; given item ID in $96 and hero ID in $97, set A to #$80 if hero can equip item, #$00 otherwise
0x018330|$06:$8320:C9 00   	CMP #$00   
0x018332|$06:$8322:D0 0E   	BNE $8332  
0x018334|$06:$8324:20 25 8D	JSR $8D25  	; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA
; call to code in a different bank ($0F:$FA2E)
0x018337|$06:$8327:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x01833A|$06:$832A:91	; String ID #$0191: ‘[name] cannot be equipped with the [item]. Is it all right?’[end-FC]

; data -> code
0x01833B|$06:$832B:20 D0 9A	JSR $9AD0  	; open YES/NO menu, return selected option in A
0x01833E|$06:$832E:C9 00   	CMP #$00   
0x018340|$06:$8330:D0 E3   	BNE $8315  
; control flow target (from $8322)
0x018342|$06:$8332:A5 97   	LDA $97    	; subject hero ID $97
0x018344|$06:$8334:20 6D 83	JSR $836D  	; given hero ID in A and item ID in $96, try to add item to first empty slot in hero's inventory; if unable to add, refund purchase, pop JSR return address and JMP $8092 instead
0x018347|$06:$8337:A9 80   	LDA #$80   	; Alive
0x018349|$06:$8339:20 9A 8D	JSR $8D9A  	; given hero ID in $97, and status in A, SEC if hero has that status, CLC otherwise
0x01834C|$06:$833C:90 0A   	BCC $8348  
0x01834E|$06:$833E:20 25 8D	JSR $8D25  	; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA
; call to code in a different bank ($0F:$FA2E)
0x018351|$06:$8341:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x018354|$06:$8344:63	; String ID #$0163: ‘Splendid, [name]!’[wait][end-FC]

; data -> code
0x018355|$06:$8345:4C 4C 83	JMP $834C  

; control flow target (from $833C)
; call to code in a different bank ($0F:$FA2E)
0x018358|$06:$8348:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x01835B|$06:$834B:64	; String ID #$0164: ‘Well, I'll just give it to the ghost, eh?’[wait][end-FC]

; data -> code
; control flow target (from $8303, $8345)
0x01835C|$06:$834C:A9 32   	LDA #$32   	; Item ID #$32: Golden Card
0x01835E|$06:$834E:20 69 A3	JSR $A369  	; check for item A in party inventory, returning inventory index of item in A/X if found, #$FF if not
0x018361|$06:$8351:C9 FF   	CMP #$FF   
0x018363|$06:$8353:F0 07   	BEQ $835C  
0x018365|$06:$8355:20 11 8D	JSR $8D11  	; given item ID in $96 and discount amount in $8F-$90, set $8F-$90 to discounted item price
; call to code in a different bank ($0F:$FA2E)
0x018368|$06:$8358:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x01836B|$06:$835B:60	; String ID #$0160: ‘Since thou hast the Golden Card I shall give thee a special discount of [number] piece[(s)] of gold[.’][wait][end-FC]

; data -> code
; control flow target (from $82EE, $8353)
; call to code in a different bank ($0F:$FA2E)
0x01836C|$06:$835C:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x01836F|$06:$835F:61	; String ID #$0161: ‘Can I interest thee in anything else?’[FD][FD][end-FC]

; data -> code
0x018370|$06:$8360:20 D0 9A	JSR $9AD0  	; open YES/NO menu, return selected option in A
0x018373|$06:$8363:C9 00   	CMP #$00   	; YES
0x018375|$06:$8365:F0 03   	BEQ $836A  
0x018377|$06:$8367:4C CE 82	JMP $82CE  	; finish weapon transaction

; control flow target (from $8365)
0x01837A|$06:$836A:4C D5 82	JMP $82D5  

; given hero ID in A and item ID in $96, try to add item to first empty slot in hero's inventory; if unable to add, refund purchase, pop JSR return address and JMP $8092 instead
; control flow target (from $82F8, $8334)
0x01837D|$06:$836D:85 97   	STA $97    	; subject hero ID $97
0x01837F|$06:$836F:20 7E 8D	JSR $8D7E  	; given hero ID in $97 and item ID in $96, try to add item to first empty slot in hero's inventory; SEC if added, CLC if no empty slots
0x018382|$06:$8372:90 05   	BCC $8379  
; call to code in a different bank ($0F:$EB76)
0x018384|$06:$8374:20 76 EB	JSR $EB76  	; open menu specified by next byte

; code -> data
; indirect data load target
0x018387|$06:$8377:1B	; Menu ID #$1B: Shop menu: current gold

; data -> code
0x018388|$06:$8378:60      	RTS        

; control flow target (from $8372)
0x018389|$06:$8379:20 25 8D	JSR $8D25  	; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA
; call to code in a different bank ($0F:$FA2E)
0x01838C|$06:$837C:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x01838F|$06:$837F:65	; String ID #$0165: ‘It seems [name] has no more room to carry things[.’][end-FC]

; data -> code
0x018390|$06:$8380:20 88 83	JSR $8388  	; add the number at $8F-$90 to party gold; no check for overflow, so this is only safe to use when reverting a sale
0x018393|$06:$8383:68      	PLA        
0x018394|$06:$8384:68      	PLA        
0x018395|$06:$8385:4C 92 80	JMP $8092  	; wait until all joypad buttons are released and then some button pressed then wipe menus and exit COMMAND menu

; add the number at $8F-$90 to party gold; no check for overflow, so this is only safe to use when reverting a sale
; control flow target (from $8315, $8380, $8403)
0x018398|$06:$8388:A5 8F   	LDA $8F    
0x01839A|$06:$838A:18      	CLC        
0x01839B|$06:$838B:6D 24 06	ADC $0624  	; party gold, low byte
0x01839E|$06:$838E:8D 24 06	STA $0624  	; party gold, low byte
0x0183A1|$06:$8391:A5 90   	LDA $90    
0x0183A3|$06:$8393:6D 25 06	ADC $0625  	; party gold, high byte
0x0183A6|$06:$8396:8D 25 06	STA $0625  	; party gold, high byte
0x0183A9|$06:$8399:60      	RTS        

; handler for dialogue IDs #$1C-#$26 (Item Shops)
; control flow target (from $81DB)
0x0183AA|$06:$839A:38      	SEC        
0x0183AB|$06:$839B:E9 14   	SBC #$14   	; convert to Shop ID
0x0183AD|$06:$839D:85 49   	STA $49    	; object hero/target/item/string ID $49
; call to code in a different bank ($0F:$F6F0)
0x0183AF|$06:$839F:20 F0 F6	JSR $F6F0  	; open main dialogue window and display string ID specified by byte following JSR + #$0100

; code -> data
; indirect data load target
0x0183B2|$06:$83A2:66	; String ID #$0166: ‘We deal in tools.[line]What can I offer thee?’[FD][FD][end-FC]

; data -> code
; call to code in a different bank ($0F:$EB76)
0x0183B3|$06:$83A3:20 76 EB	JSR $EB76  	; open menu specified by next byte

; code -> data
; indirect data load target
0x0183B6|$06:$83A6:18	; Menu ID #$18: Shop menu: BUY/SELL

; data -> code
0x0183B7|$06:$83A7:C9 FF   	CMP #$FF   
0x0183B9|$06:$83A9:F0 07   	BEQ $83B2  	; finish item transaction
0x0183BB|$06:$83AB:C9 00   	CMP #$00   	; BUY
0x0183BD|$06:$83AD:F0 15   	BEQ $83C4  	; BUY handler
0x0183BF|$06:$83AF:4C 85 84	JMP $8485  	; SELL handler

; finish item transaction
; control flow target (from $83A9, $83C2, $83CF, $83DE, $8406, $8497, $84B4)
; call to code in a different bank ($0F:$FA2E)
0x0183C2|$06:$83B2:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x0183C5|$06:$83B5:70	; String ID #$0170: ‘Good day, then[.’][end-FC]

; data -> code
0x0183C6|$06:$83B6:4C 92 80	JMP $8092  	; wait until all joypad buttons are released and then some button pressed then wipe menus and exit COMMAND menu

; control flow target (from $83EB, $8469, $8482)
; call to code in a different bank ($0F:$FA2E)
0x0183C9|$06:$83B9:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x0183CC|$06:$83BC:6F	; String ID #$016F: ‘Dost thou need anything else?’[FD][FD][end-FC]

; data -> code
0x0183CD|$06:$83BD:20 D0 9A	JSR $9AD0  	; open YES/NO menu, return selected option in A
0x0183D0|$06:$83C0:C9 00   	CMP #$00   	; YES
0x0183D2|$06:$83C2:D0 EE   	BNE $83B2  	; finish item transaction
; BUY handler
; control flow target (from $83AD)
; call to code in a different bank ($0F:$FA2E)
0x0183D4|$06:$83C4:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x0183D7|$06:$83C7:67	; String ID #$0167: ‘What dost thou want?’[FD][FD][end-FC]

; data -> code
0x0183D8|$06:$83C8:A5 49   	LDA $49    	; object hero/target/item/string ID $49
; call to code in a different bank ($0F:$F61B)
0x0183DA|$06:$83CA:20 1B F6	JSR $F61B  	; display shop menu item list for shop ID given in A, returning selected item (with Jailor's Key replaced by blank) in A
0x0183DD|$06:$83CD:C9 FF   	CMP #$FF   
0x0183DF|$06:$83CF:F0 E1   	BEQ $83B2  	; finish item transaction
0x0183E1|$06:$83D1:C9 00   	CMP #$00   	; Jailor's Key converted to #$00
0x0183E3|$06:$83D3:D0 0D   	BNE $83E2  
; call to code in a different bank ($0F:$FA32)
0x0183E5|$06:$83D5:20 32 FA	JSR $FA32  	; display string ID specified by next byte + #$0200

; code -> data
; indirect data load target
0x0183E8|$06:$83D8:DA	; String ID #$02DA: ‘So thou hast heard about my wares[.’][wait][line]‘A bit expensive, maybe, but such fine craftsmanship![line]Will thou take it?’[FD][FD][end-FC]

; data -> code
0x0183E9|$06:$83D9:20 D0 9A	JSR $9AD0  	; open YES/NO menu, return selected option in A
0x0183EC|$06:$83DC:C9 00   	CMP #$00   	; YES
0x0183EE|$06:$83DE:D0 D2   	BNE $83B2  	; finish item transaction
0x0183F0|$06:$83E0:A9 39   	LDA #$39   	; Item ID #$39: Jailor’s Key
; control flow target (from $83D3)
0x0183F2|$06:$83E2:20 4D 8D	JSR $8D4D  	; given item ID in A, save it to $96 and set $8F-$90 to purchase price of item, accounting for possible Golden Card discount; decrease party gold by that amount and SEC if possible, CLC otherwise
0x0183F5|$06:$83E5:B0 07   	BCS $83EE  
; call to code in a different bank ($0F:$FA2E)
0x0183F7|$06:$83E7:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x0183FA|$06:$83EA:68	; String ID #$0168: ‘Unfortunately, thou hast not enough gold for that[.’][wait][end-FC]

; data -> code
0x0183FB|$06:$83EB:4C B9 83	JMP $83B9  

; control flow target (from $83E5)
; call to code in a different bank ($0F:$F6CE)
0x0183FE|$06:$83EE:20 CE F6	JSR $F6CE  	; return number of party members - 1 in A/X
0x018401|$06:$83F1:C9 00   	CMP #$00   
0x018403|$06:$83F3:D0 1F   	BNE $8414  	; if Midenhall is alone, no need to ask who to give it to
0x018405|$06:$83F5:85 97   	STA $97    	; subject hero ID $97
0x018407|$06:$83F7:20 7E 8D	JSR $8D7E  	; given hero ID in $97 and item ID in $96, try to add item to first empty slot in hero's inventory; SEC if added, CLC if no empty slots
0x01840A|$06:$83FA:B0 0D   	BCS $8409  
0x01840C|$06:$83FC:20 25 8D	JSR $8D25  	; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA
; call to code in a different bank ($0F:$FA2E)
0x01840F|$06:$83FF:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x018412|$06:$8402:6C	; String ID #$016C: ‘Sorry. Thou cannot carry more[.’][wait][end-FC]

; data -> code
; revert sale, finish item transaction
; control flow target (from $842E, $8448)
0x018413|$06:$8403:20 88 83	JSR $8388  	; add the number at $8F-$90 to party gold; no check for overflow, so this is only safe to use when reverting a sale
0x018416|$06:$8406:4C B2 83	JMP $83B2  	; finish item transaction

; control flow target (from $83FA)
0x018419|$06:$8409:A5 96   	LDA $96    	; temp storage for item/spell/type/etc. IDs
0x01841B|$06:$840B:85 95   	STA $95    	; ID for [item] and [spell] control codes
; call to code in a different bank ($0F:$FA2E)
0x01841D|$06:$840D:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x018420|$06:$8410:69	; String ID #$0169: ‘The [item], eh? I thank thee[.’][wait][end-FC]

; data -> code
0x018421|$06:$8411:4C 55 84	JMP $8455  

; control flow target (from $83F3)
0x018424|$06:$8414:A5 96   	LDA $96    	; temp storage for item/spell/type/etc. IDs
0x018426|$06:$8416:C9 39   	CMP #$39   	; Item ID #$39: Jailor’s Key
0x018428|$06:$8418:D0 07   	BNE $8421  
; call to code in a different bank ($0F:$FA32)
0x01842A|$06:$841A:20 32 FA	JSR $FA32  	; display string ID specified by next byte + #$0200

; code -> data
; indirect data load target
0x01842D|$06:$841D:DB	; String ID #$02DB: ‘Tell nobody that I have sold it[.’][wait][end-FC]

; data -> code
0x01842E|$06:$841E:4C 4A 84	JMP $844A  

; control flow target (from $8418)
0x018431|$06:$8421:85 95   	STA $95    	; ID for [item] and [spell] control codes
; call to code in a different bank ($0F:$FA2E)
0x018433|$06:$8423:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x018436|$06:$8426:6A	; String ID #$016A: ‘Thou will buy the [item]?[line]And who will carry it?’[FD][FD][end-FC]

; data -> code
; control flow target (from $844E)
; call to code in a different bank ($0F:$F595)
0x018437|$06:$8427:20 95 F5	JSR $F595  	; display appropriate shop BUY/SELL hero select menu
0x01843A|$06:$842A:C9 FF   	CMP #$FF   
0x01843C|$06:$842C:D0 03   	BNE $8431  
0x01843E|$06:$842E:4C 03 84	JMP $8403  	; revert sale, finish item transaction

; control flow target (from $842C)
0x018441|$06:$8431:85 97   	STA $97    	; subject hero ID $97
0x018443|$06:$8433:20 7E 8D	JSR $8D7E  	; given hero ID in $97 and item ID in $96, try to add item to first empty slot in hero's inventory; SEC if added, CLC if no empty slots
0x018446|$06:$8436:B0 19   	BCS $8451  
0x018448|$06:$8438:20 25 8D	JSR $8D25  	; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA
; call to code in a different bank ($0F:$FA2E)
0x01844B|$06:$843B:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x01844E|$06:$843E:6C	; String ID #$016C: ‘Sorry. Thou cannot carry more[.’][wait][end-FC]

; data -> code
; call to code in a different bank ($0F:$FA2E)
0x01844F|$06:$843F:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x018452|$06:$8442:6D	; String ID #$016D: ‘Will one of thy companions carry it?’[FD][FD][end-FC]

; data -> code
0x018453|$06:$8443:20 D0 9A	JSR $9AD0  	; open YES/NO menu, return selected option in A
0x018456|$06:$8446:C9 00   	CMP #$00   	; YES
0x018458|$06:$8448:D0 B9   	BNE $8403  	; revert sale, finish item transaction
; control flow target (from $841E)
; call to code in a different bank ($0F:$FA2E)
0x01845A|$06:$844A:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x01845D|$06:$844D:6E	; String ID #$016E: ‘Who shall take it?’[FD][FD][end-FC]

; data -> code
0x01845E|$06:$844E:4C 27 84	JMP $8427  

; control flow target (from $8436)
; call to code in a different bank ($0F:$FA2E)
0x018461|$06:$8451:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x018464|$06:$8454:6B	; String ID #$016B: ‘I thank thee kindly[.’][wait][end-FC]

; data -> code
; control flow target (from $8411)
; call to code in a different bank ($0F:$EB76)
0x018465|$06:$8455:20 76 EB	JSR $EB76  	; open menu specified by next byte

; code -> data
; indirect data load target
0x018468|$06:$8458:1B	; Menu ID #$1B: Shop menu: current gold

; data -> code
0x018469|$06:$8459:A9 32   	LDA #$32   	; Item ID #$32: Golden Card
0x01846B|$06:$845B:20 69 A3	JSR $A369  	; check for item A in party inventory, returning inventory index of item in A/X if found, #$FF if not
0x01846E|$06:$845E:C9 FF   	CMP #$FF   
0x018470|$06:$8460:F0 0A   	BEQ $846C  
0x018472|$06:$8462:20 11 8D	JSR $8D11  	; given item ID in $96 and discount amount in $8F-$90, set $8F-$90 to discounted item price
; call to code in a different bank ($0F:$FA2E)
0x018475|$06:$8465:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x018478|$06:$8468:71	; String ID #$0171: ‘I see thou hast a Golden Card, but I will offer only a discount of [number] piece[(s)] of gold[.’][wait][end-FC]

; data -> code
; control flow target (from $8473, $847C)
0x018479|$06:$8469:4C B9 83	JMP $83B9  

; control flow target (from $8460)
; call to code in a different bank ($0F:$C3AB)
0x01847C|$06:$846C:20 AB C3	JSR $C3AB  	; generate a random number and store it in $32-$33 (two passes)
0x01847F|$06:$846F:A5 32   	LDA $32    	; RNG byte 0
0x018481|$06:$8471:C9 2B   	CMP #$2B   	; odds of getting a Lottery Ticket = 43/256
0x018483|$06:$8473:B0 F4   	BCS $8469  
0x018485|$06:$8475:A9 33   	LDA #$33   	; Item ID #$33: Lottery Ticket
0x018487|$06:$8477:85 96   	STA $96    	; temp storage for item/spell/type/etc. IDs
0x018489|$06:$8479:20 7E 8D	JSR $8D7E  	; given hero ID in $97 and item ID in $96, try to add item to first empty slot in hero's inventory; SEC if added, CLC if no empty slots
0x01848C|$06:$847C:90 EB   	BCC $8469  
; call to code in a different bank ($0F:$FA2E)
0x01848E|$06:$847E:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x018491|$06:$8481:9D	; String ID #$019D: ‘With my compliments, here is an extra lottery ticket[.’][wait][end-FC]

; data -> code
0x018492|$06:$8482:4C B9 83	JMP $83B9  

; SELL handler
; control flow target (from $83AF)
; call to code in a different bank ($0F:$F6CE)
0x018495|$06:$8485:20 CE F6	JSR $F6CE  	; return number of party members - 1 in A/X
0x018498|$06:$8488:C9 00   	CMP #$00   
0x01849A|$06:$848A:F0 0E   	BEQ $849A  	; if Midenhall is alone, no need to ask who's selling
; call to code in a different bank ($0F:$FA2E)
0x01849C|$06:$848C:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x01849F|$06:$848F:72	; String ID #$0172: ‘Whose property will thou sell?’[FD][FD][end-FC]

; data -> code
; call to code in a different bank ($0F:$F595)
0x0184A0|$06:$8490:20 95 F5	JSR $F595  	; display appropriate shop BUY/SELL hero select menu
0x0184A3|$06:$8493:C9 FF   	CMP #$FF   
0x0184A5|$06:$8495:D0 03   	BNE $849A  
0x0184A7|$06:$8497:4C B2 83	JMP $83B2  	; finish item transaction

; control flow target (from $848A, $8495)
0x0184AA|$06:$849A:85 97   	STA $97    	; subject hero ID $97
; control flow target (from $850D)
0x0184AC|$06:$849C:A5 97   	LDA $97    	; subject hero ID $97
0x0184AE|$06:$849E:0A      	ASL        	; 8 inventory items per hero
0x0184AF|$06:$849F:0A      	ASL        
0x0184B0|$06:$84A0:0A      	ASL        
0x0184B1|$06:$84A1:A8      	TAY        	; hero inventory read index
0x0184B2|$06:$84A2:A2 08   	LDX #$08   	; 8 inventory items per hero; loop counter
; control flow target (from $84AB)
0x0184B4|$06:$84A4:B9 00 06	LDA $0600,Y	; Midenhall inventory item 1 (| #$40 if equipped)
0x0184B7|$06:$84A7:D0 0E   	BNE $84B7  
0x0184B9|$06:$84A9:C8      	INY        	; hero inventory read index
0x0184BA|$06:$84AA:CA      	DEX        	; loop counter
0x0184BB|$06:$84AB:D0 F7   	BNE $84A4  
0x0184BD|$06:$84AD:20 25 8D	JSR $8D25  	; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA
; call to code in a different bank ($0F:$FA2E)
0x0184C0|$06:$84B0:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x0184C3|$06:$84B3:73	; String ID #$0173: ‘But [name] hast nothing to sell[.’][wait][end-FC]

; data -> code
; finish item transaction
; control flow target (from $84CF, $850B)
0x0184C4|$06:$84B4:4C B2 83	JMP $83B2  	; finish item transaction

; control flow target (from $84A7)
; call to code in a different bank ($0F:$FA2E)
0x0184C7|$06:$84B7:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x0184CA|$06:$84BA:74	; String ID #$0174: ‘Which art thou going to sell?’[FD][FD][end-FC]

; data -> code
; call to code in a different bank ($0F:$EB76)
0x0184CB|$06:$84BB:20 76 EB	JSR $EB76  	; open menu specified by next byte

; code -> data
; indirect data load target
0x0184CE|$06:$84BE:1B	; Menu ID #$1B: Shop menu: current gold

; data -> code
0x0184CF|$06:$84BF:A5 97   	LDA $97    	; subject hero ID $97
; call to code in a different bank ($0F:$F5FE)
0x0184D1|$06:$84C1:20 FE F5	JSR $F5FE  	; given a hero ID in A, open hero's item list and return selected item ID (or #$FE if they have no items)
0x0184D4|$06:$84C4:86 49   	STX $49    	; object hero/target/item/string ID $49
0x0184D6|$06:$84C6:48      	PHA        	; item ID
0x0184D7|$06:$84C7:A9 03   	LDA #$03   
; call to code in a different bank ($0F:$CF6A)
0x0184D9|$06:$84C9:20 6A CF	JSR $CF6A  	; wipe selected menu region
0x0184DC|$06:$84CC:68      	PLA        	; item ID
0x0184DD|$06:$84CD:C9 FF   	CMP #$FF   
0x0184DF|$06:$84CF:F0 E3   	BEQ $84B4  	; finish item transaction
0x0184E1|$06:$84D1:85 96   	STA $96    	; temp storage for item/spell/type/etc. IDs; item ID
0x0184E3|$06:$84D3:29 3F   	AND #$3F   	; strip off the equipped bit
0x0184E5|$06:$84D5:0A      	ASL        
0x0184E6|$06:$84D6:A8      	TAY        
0x0184E7|$06:$84D7:B9 FC 9F	LDA $9FFC,Y	; Item Prices, low byte
0x0184EA|$06:$84DA:85 8F   	STA $8F    
0x0184EC|$06:$84DC:B9 FD 9F	LDA $9FFD,Y	; Item Prices, high byte
0x0184EF|$06:$84DF:85 90   	STA $90    
0x0184F1|$06:$84E1:46 90   	LSR $90    	; LSR 16-bit $8F-$90
0x0184F3|$06:$84E3:66 8F   	ROR $8F    
0x0184F5|$06:$84E5:46 90   	LSR $90    	; LSR 16-bit $8F-$90
0x0184F7|$06:$84E7:66 8F   	ROR $8F    
0x0184F9|$06:$84E9:B9 FC 9F	LDA $9FFC,Y	; Item Prices, low byte
0x0184FC|$06:$84EC:38      	SEC        
0x0184FD|$06:$84ED:E5 8F   	SBC $8F    
0x0184FF|$06:$84EF:85 8F   	STA $8F    
0x018501|$06:$84F1:B9 FD 9F	LDA $9FFD,Y	; Item Prices, high byte
0x018504|$06:$84F4:E5 90   	SBC $90    
0x018506|$06:$84F6:85 90   	STA $90    	; at this point item sell price is 75% of base price
0x018508|$06:$84F8:A5 8F   	LDA $8F    	; check if sell price is zero
0x01850A|$06:$84FA:05 90   	ORA $90    
0x01850C|$06:$84FC:D0 12   	BNE $8510  	; sell price of zero => key item
; call to code in a different bank ($0F:$FA2E)
0x01850E|$06:$84FE:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x018511|$06:$8501:75	; String ID #$0175: ‘Sorry, friend, but I cannot buy that[.’][wait][end-FC]

; data -> code
; control flow target (from $8523, $8544, $854B)
; call to code in a different bank ($0F:$FA2E)
0x018512|$06:$8502:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x018515|$06:$8505:79	; String ID #$0179: ‘Art thou going to sell more?’[FD][FD][end-FC]

; data -> code
0x018516|$06:$8506:20 D0 9A	JSR $9AD0  	; open YES/NO menu, return selected option in A
0x018519|$06:$8509:C9 00   	CMP #$00   	; YES
0x01851B|$06:$850B:D0 A7   	BNE $84B4  	; finish item transaction
0x01851D|$06:$850D:4C 9C 84	JMP $849C  

; control flow target (from $84FC)
0x018520|$06:$8510:A5 96   	LDA $96    	; temp storage for item/spell/type/etc. IDs
0x018522|$06:$8512:85 95   	STA $95    	; ID for [item] and [spell] control codes
; call to code in a different bank ($0F:$FA2E)
0x018524|$06:$8514:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x018527|$06:$8517:76	; String ID #$0176: ‘Thy [item]? Well, I'll give thee [number] piece[(s)] of gold for that[.’][FD][FD][end-FC]

; data -> code
0x018528|$06:$8518:20 D0 9A	JSR $9AD0  	; open YES/NO menu, return selected option in A
0x01852B|$06:$851B:C9 00   	CMP #$00   	; YES
0x01852D|$06:$851D:F0 07   	BEQ $8526  
; call to code in a different bank ($0F:$FA2E)
0x01852F|$06:$851F:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x018532|$06:$8522:77	; String ID #$0177: ‘That's too bad[.’][wait][end-FC]

; data -> code
0x018533|$06:$8523:4C 02 85	JMP $8502  

; control flow target (from $851D)
0x018536|$06:$8526:A6 49   	LDX $49    	; object hero/target/item/string ID $49
0x018538|$06:$8528:20 0F 8B	JSR $8B0F  	; given hero ID in $97 and hero inventory index in X, return corresponding item ID in A and party inventory index in X
0x01853B|$06:$852B:8A      	TXA        	; don't care about the item ID, just want the party inventory ID
0x01853C|$06:$852C:A8      	TAY        
0x01853D|$06:$852D:20 23 8B	JSR $8B23  	; given party inventory index in Y, CLC and return equipped item ID in A if corresponding item is equipped and cursed, SEC and return unequipped item ID in A otherwise
0x018540|$06:$8530:90 15   	BCC $8547  
; call to code in a different bank ($0F:$FA2E)
0x018542|$06:$8532:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x018545|$06:$8535:78	; String ID #$0178: ‘I thank thee[.’][wait][end-FC]

; data -> code
0x018546|$06:$8536:20 F5 8C	JSR $8CF5  	; add $8F-$90 to party gold, capped at $FFFF
0x018549|$06:$8539:A5 97   	LDA $97    	; subject hero ID $97
0x01854B|$06:$853B:A6 49   	LDX $49    	; object hero/target/item/string ID $49
; call to code in a different bank ($0F:$C4D4)
0x01854D|$06:$853D:20 D4 C4	JSR $C4D4  	; given hero ID in A and hero inventory offset in X, remove that item from hero's inventory and move all lower items up 1 slot
; call to code in a different bank ($0F:$EB76)
0x018550|$06:$8540:20 76 EB	JSR $EB76  	; open menu specified by next byte

; code -> data
; indirect data load target
0x018553|$06:$8543:1B	; Menu ID #$1B: Shop menu: current gold

; data -> code
0x018554|$06:$8544:4C 02 85	JMP $8502  

; control flow target (from $8530)
; call to code in a different bank ($0F:$FA2E)
0x018557|$06:$8547:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x01855A|$06:$854A:7A	; String ID #$017A: ‘I fear it won't come off due to the curse[.’][wait][end-FC]

; data -> code
0x01855B|$06:$854B:4C 02 85	JMP $8502  

; handler for dialogue ID #$27 (House of Healing)
; control flow target (from $81E2)
0x01855E|$06:$854E:38      	SEC        
0x01855F|$06:$854F:E9 27   	SBC #$27   	; LDA #$00 would have been shorter and faster
0x018561|$06:$8551:85 49   	STA $49    	; object hero/target/item/string ID $49
; call to code in a different bank ($0F:$F6F0)
0x018563|$06:$8553:20 F0 F6	JSR $F6F0  	; open main dialogue window and display string ID specified by byte following JSR + #$0100

; code -> data
; indirect data load target
0x018566|$06:$8556:81	; String ID #$0181: ‘Welcome to the House of Healing[.’][wait][end-FC]

; data -> code
; control flow target (from $8573)
; call to code in a different bank ($0F:$FA2E)
0x018567|$06:$8557:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x01856A|$06:$855A:82	; String ID #$0182: ‘What service dost thou require?’[FD][FD][end-FC]

; data -> code
; call to code in a different bank ($0F:$EB76)
0x01856B|$06:$855B:20 76 EB	JSR $EB76  	; open menu specified by next byte

; code -> data
; indirect data load target
0x01856E|$06:$855E:1A	; Menu ID #$1A: Priest menu: DETOXICATE/UNCURSE/REVIVAL

; data -> code
0x01856F|$06:$855F:C9 FF   	CMP #$FF   
0x018571|$06:$8561:D0 14   	BNE $8577  
; finish conversation
; control flow target (from $8575, $858E, $85D9, $8632)
; call to code in a different bank ($0F:$FA2E)
0x018573|$06:$8563:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x018576|$06:$8566:88	; String ID #$0188: ‘Good luck and hey, let's be careful out there[.’][end-FC]

; data -> code
0x018577|$06:$8567:4C 92 80	JMP $8092  	; wait until all joypad buttons are released and then some button pressed then wipe menus and exit COMMAND menu

; repeat service loop
; control flow target (from $85A0, $85BD, $85F7, $8619, $8645, $866F, $869A)
; call to code in a different bank ($0F:$FA2E)
0x01857A|$06:$856A:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x01857D|$06:$856D:87	; String ID #$0187: ‘Can I do anything else for thee?’[FD][FD][end-FC]

; data -> code
0x01857E|$06:$856E:20 D0 9A	JSR $9AD0  	; open YES/NO menu, return selected option in A
0x018581|$06:$8571:C9 00   	CMP #$00   	; YES
0x018583|$06:$8573:F0 E2   	BEQ $8557  
0x018585|$06:$8575:D0 EC   	BNE $8563  	; finish conversation
; control flow target (from $8561)
0x018587|$06:$8577:C9 00   	CMP #$00   	; DETOXICATE
0x018589|$06:$8579:F0 03   	BEQ $857E  	; DETOXICATE handler
0x01858B|$06:$857B:4C C0 85	JMP $85C0  

; DETOXICATE handler
; control flow target (from $8579)
; call to code in a different bank ($0F:$F6CE)
0x01858E|$06:$857E:20 CE F6	JSR $F6CE  	; return number of party members - 1 in A/X
0x018591|$06:$8581:C9 00   	CMP #$00   
0x018593|$06:$8583:F0 0B   	BEQ $8590  	; if Midenhall is alone, no need to ask for target hero
; call to code in a different bank ($0F:$FA2E)
0x018595|$06:$8585:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x018598|$06:$8588:83	; String ID #$0183: ‘Who is the patient?’[FD][FD][end-FC]

; data -> code
; call to code in a different bank ($0F:$F595)
0x018599|$06:$8589:20 95 F5	JSR $F595  	; display appropriate shop BUY/SELL hero select menu
0x01859C|$06:$858C:C9 FF   	CMP #$FF   
0x01859E|$06:$858E:F0 D3   	BEQ $8563  	; finish conversation
; control flow target (from $8583)
0x0185A0|$06:$8590:85 97   	STA $97    	; subject hero ID $97
0x0185A2|$06:$8592:A9 20   	LDA #$20   	; Poison
0x0185A4|$06:$8594:20 9A 8D	JSR $8D9A  	; given hero ID in $97, and status in A, SEC if hero has that status, CLC otherwise
0x0185A7|$06:$8597:B0 0A   	BCS $85A3  
0x0185A9|$06:$8599:20 25 8D	JSR $8D25  	; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA
; call to code in a different bank ($0F:$FA2E)
0x0185AC|$06:$859C:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x0185AF|$06:$859F:84	; String ID #$0184: ‘Good news, [name] has not been poisoned[.’][wait][end-FC]

; data -> code
0x0185B0|$06:$85A0:4C 6A 85	JMP $856A  	; repeat service loop

; control flow target (from $8597)
0x0185B3|$06:$85A3:A9 02   	LDA #$02   	; DETOXICATE fee is hero level * 2
0x0185B5|$06:$85A5:20 A4 86	JSR $86A4  	; given hero ID in $97, multiply A by that hero's level, store results in ($10-$11) and ($8F-$90); consumes $0C
0x0185B8|$06:$85A8:20 79 86	JSR $8679  	; try to collect payment for House of Healing service; refusal or insufficient gold pops JSP return address and jumps to repeat service loop at $06:$856A
; call to code in a different bank ($0F:$FA2E)
0x0185BB|$06:$85AB:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x0185BE|$06:$85AE:86	; String ID #$0186: ‘Now I will administer the antidote to [name].[line]Stand still, please[.’][wait][end-FC]

; data -> code
; call to code in a different bank ($0F:$C515)
0x0185BF|$06:$85AF:20 15 C5	JSR $C515  	; flash screen 10 times
0x0185C2|$06:$85B2:20 AA 8D	JSR $8DAA  	; given hero ID in $97, set Y to start of hero's data in $062D,Y, i.e. Y = $97 * #$12
0x0185C5|$06:$85B5:B9 2D 06	LDA $062D,Y	; Midenhall status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence)
0x0185C8|$06:$85B8:29 DF   	AND #$DF   	; clear Poison
0x0185CA|$06:$85BA:99 2D 06	STA $062D,Y	; Midenhall status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence)
0x0185CD|$06:$85BD:4C 6A 85	JMP $856A  	; repeat service loop

; control flow target (from $857B)
0x0185D0|$06:$85C0:C9 01   	CMP #$01   	; UNCURSE
0x0185D2|$06:$85C2:F0 03   	BEQ $85C7  	; UNCURSE handler
0x0185D4|$06:$85C4:4C 20 86	JMP $8620  	; REVIVAL handler

; UNCURSE handler
; control flow target (from $85C2)
; call to code in a different bank ($0F:$F6CE)
0x0185D7|$06:$85C7:20 CE F6	JSR $F6CE  	; return number of party members - 1 in A/X
0x0185DA|$06:$85CA:C9 00   	CMP #$00   
0x0185DC|$06:$85CC:F0 0E   	BEQ $85DC  	; if Midenhall is alone, no need to ask for target hero
; call to code in a different bank ($0F:$FA2E)
0x0185DE|$06:$85CE:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x0185E1|$06:$85D1:8B	; String ID #$018B: ‘A curse is it?[line]Who needs the cure?’[FD][FD][end-FC]

; data -> code
; call to code in a different bank ($0F:$F595)
0x0185E2|$06:$85D2:20 95 F5	JSR $F595  	; display appropriate shop BUY/SELL hero select menu
0x0185E5|$06:$85D5:C9 FF   	CMP #$FF   
0x0185E7|$06:$85D7:D0 03   	BNE $85DC  
0x0185E9|$06:$85D9:4C 63 85	JMP $8563  	; finish conversation

; control flow target (from $85CC, $85D7)
0x0185EC|$06:$85DC:85 97   	STA $97    	; subject hero ID $97
0x0185EE|$06:$85DE:A9 04   	LDA #$04   	; there are 4 cursed items in the game
0x0185F0|$06:$85E0:85 0C   	STA $0C    
; control flow target (from $85EE)
0x0185F2|$06:$85E2:A4 0C   	LDY $0C    
0x0185F4|$06:$85E4:B9 1B 86	LDA $861B,Y	; list of cursed items (equipped), built in offset from $861C
0x0185F7|$06:$85E7:20 BA 8D	JSR $8DBA  	; given a hero ID in $97 and an item ID in A, SEC if hero has that item, CLC otherwise
0x0185FA|$06:$85EA:B0 0E   	BCS $85FA  
0x0185FC|$06:$85EC:C6 0C   	DEC $0C    
0x0185FE|$06:$85EE:D0 F2   	BNE $85E2  	; loop to check next cursed item
0x018600|$06:$85F0:20 25 8D	JSR $8D25  	; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA
; call to code in a different bank ($0F:$FA2E)
0x018603|$06:$85F3:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x018606|$06:$85F6:8C	; String ID #$018C: ‘Hmmm. No. [name] is not cursed[.’][wait][end-FC]

; data -> code
0x018607|$06:$85F7:4C 6A 85	JMP $856A  	; repeat service loop

; control flow target (from $85EA)
0x01860A|$06:$85FA:A9 64   	LDA #$64   	; UNCURSE fee is hero level * 100
0x01860C|$06:$85FC:20 A4 86	JSR $86A4  	; given hero ID in $97, multiply A by that hero's level, store results in ($10-$11) and ($8F-$90); consumes $0C
0x01860F|$06:$85FF:20 79 86	JSR $8679  	; try to collect payment for House of Healing service; refusal or insufficient gold pops JSP return address and jumps to repeat service loop at $06:$856A
; call to code in a different bank ($0F:$FA2E)
0x018612|$06:$8602:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x018615|$06:$8605:8D	; String ID #$018D: ‘A curse is like a virus, of course. This medicine should remove it[.’][end-FC]

; data -> code
; call to code in a different bank ($0F:$C515)
0x018616|$06:$8606:20 15 C5	JSR $C515  	; flash screen 10 times
0x018619|$06:$8609:A9 04   	LDA #$04   	; there are 4 cursed items in the game
0x01861B|$06:$860B:85 0C   	STA $0C    
; control flow target (from $8617)
0x01861D|$06:$860D:A4 0C   	LDY $0C    
0x01861F|$06:$860F:B9 1B 86	LDA $861B,Y	; list of cursed items (equipped), built in offset from $861C
0x018622|$06:$8612:20 C3 8D	JSR $8DC3  	; given a hero ID in $97 and an item ID in A, remove that item from hero's inventory if present and SEC, CLC otherwise
0x018625|$06:$8615:C6 0C   	DEC $0C    
0x018627|$06:$8617:D0 F4   	BNE $860D  	; loop to keep removing cursed items
0x018629|$06:$8619:4C 6A
; list of cursed items (equipped), built in offset from $861C
; indexed data load target (from $85E4, $860F, $8AC8)
0x01862B|$06:$861B:      85	JMP $856A  	; repeat service loop


; code -> data
; list of equipped cursed items
; indexed data load target (from $8B28)
0x01862C|$06:$861C:6F	; Item ID #$6F: Gremlin’s Tail (equipped)
0x01862D|$06:$861D:4C	; Item ID #$4C: Sword of Destruction (equipped)
0x01862E|$06:$861E:57	; Item ID #$57: Gremlin’s Armor (equipped)
0x01862F|$06:$861F:5F	; Item ID #$5F: Evil Shield (equipped)

; data -> code
; REVIVAL handler
; control flow target (from $85C4)
; call to code in a different bank ($0F:$F6CE)
0x018630|$06:$8620:20 CE F6	JSR $F6CE  	; return number of party members - 1 in A/X
0x018633|$06:$8623:C9 00   	CMP #$00   	; if Midenhall is alone, no need to ask for target hero
0x018635|$06:$8625:F0 0E   	BEQ $8635  
; call to code in a different bank ($0F:$FA2E)
0x018637|$06:$8627:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x01863A|$06:$862A:8E	; String ID #$018E: ‘Whom shall I revive?’[FD][FD][end-FC]

; data -> code
; call to code in a different bank ($0F:$F595)
0x01863B|$06:$862B:20 95 F5	JSR $F595  	; display appropriate shop BUY/SELL hero select menu
0x01863E|$06:$862E:C9 FF   	CMP #$FF   
0x018640|$06:$8630:D0 03   	BNE $8635  
0x018642|$06:$8632:4C 63 85	JMP $8563  	; finish conversation

; control flow target (from $8625, $8630)
0x018645|$06:$8635:85 97   	STA $97    	; subject hero ID $97
0x018647|$06:$8637:A9 80   	LDA #$80   	; Alive
0x018649|$06:$8639:20 9A 8D	JSR $8D9A  	; given hero ID in $97, and status in A, SEC if hero has that status, CLC otherwise
0x01864C|$06:$863C:90 0A   	BCC $8648  
0x01864E|$06:$863E:20 25 8D	JSR $8D25  	; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA
; call to code in a different bank ($0F:$FA2E)
0x018651|$06:$8641:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x018654|$06:$8644:8F	; String ID #$018F: ‘There, I think [name] will live now[.’][wait][end-FC]

; data -> code
0x018655|$06:$8645:4C 6A 85	JMP $856A  	; repeat service loop

; control flow target (from $863C)
0x018658|$06:$8648:A9 14   	LDA #$14   	; REVIVAL fee is hero level * 20
0x01865A|$06:$864A:20 A4 86	JSR $86A4  	; given hero ID in $97, multiply A by that hero's level, store results in ($10-$11) and ($8F-$90); consumes $0C
0x01865D|$06:$864D:20 79 86	JSR $8679  	; try to collect payment for House of Healing service; refusal or insufficient gold pops JSP return address and jumps to repeat service loop at $06:$856A
; call to code in a different bank ($0F:$FA2E)
0x018660|$06:$8650:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x018663|$06:$8653:90	; String ID #$0190: ‘This is a very delicate operation[.’][wait][line]‘It may take a little while[.’][FD][FD][end-FC]

; data -> code
0x018664|$06:$8654:A9 02   	LDA #$02   	; Music ID #$02: revive BGM
; call to code in a different bank ($0F:$C58D)
0x018666|$06:$8656:20 8D C5	JSR $C58D  	; play PCM specified by A (>= #$80 = sound effect [SFX], < #$80 = background music [BGM]), wait for it to finish, then play previous BGM
0x018669|$06:$8659:20 AA 8D	JSR $8DAA  	; given hero ID in $97, set Y to start of hero's data in $062D,Y, i.e. Y = $97 * #$12
0x01866C|$06:$865C:B9 2D 06	LDA $062D,Y	; Midenhall status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence)
0x01866F|$06:$865F:09 80   	ORA #$80   	; Alive
0x018671|$06:$8661:99 2D 06	STA $062D,Y	; Midenhall status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence)
0x018674|$06:$8664:A9 01   	LDA #$01   	; revived with 1 HP
0x018676|$06:$8666:99 3B 06	STA $063B,Y	; Midenhall Current HP, low byte
; call to code in a different bank ($0F:$D302)
0x018679|$06:$8669:20 02 D3	JSR $D302  
; call to code in a different bank ($0F:$C22C)
0x01867C|$06:$866C:20 2C C2	JSR $C22C  
0x01867F|$06:$866F:4C 6A 85	JMP $856A  	; repeat service loop

; call to code in a different bank ($0F:$FA2E)
0x018682|$06:$8672:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
0x018685|$06:$8675:91	; String ID #$0191: ‘[name] cannot be equipped with the [item]. Is it all right?’[end-FC]

; data -> code
0x018686|$06:$8676:4C 7D 86	JMP $867D  

; try to collect payment for House of Healing service; refusal or insufficient gold pops JSP return address and jumps to repeat service loop at $06:$856A
; control flow target (from $85A8, $85FF, $864D)
; call to code in a different bank ($0F:$FA2E)
0x018689|$06:$8679:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x01868C|$06:$867C:85	; String ID #$0185: ‘The fee is [number] piece[(s)] of gold.[line]Will thou pay?’[FD][FD][end-FC]

; data -> code
; control flow target (from $8676)
; call to code in a different bank ($0F:$EB76)
0x01868D|$06:$867D:20 76 EB	JSR $EB76  	; open menu specified by next byte

; code -> data
; indirect data load target
0x018690|$06:$8680:1B	; Menu ID #$1B: Shop menu: current gold

; data -> code
0x018691|$06:$8681:20 D0 9A	JSR $9AD0  	; open YES/NO menu, return selected option in A
0x018694|$06:$8684:C9 00   	CMP #$00   	; YES
0x018696|$06:$8686:D0 0C   	BNE $8694  
0x018698|$06:$8688:20 31 8D	JSR $8D31  	; given gold amount in $8F-$90, decrease party gold by that amount and SEC if possible, CLC otherwise
0x01869B|$06:$868B:90 10   	BCC $869D  
; call to code in a different bank ($0F:$EB76)
0x01869D|$06:$868D:20 76 EB	JSR $EB76  	; open menu specified by next byte

; code -> data
; indirect data load target
0x0186A0|$06:$8690:1B	; Menu ID #$1B: Shop menu: current gold

; data -> code
0x0186A1|$06:$8691:4C 25 8D	JMP $8D25  	; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA

; control flow target (from $8686)
; call to code in a different bank ($0F:$FA2E)
0x0186A4|$06:$8694:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x0186A7|$06:$8697:89	; String ID #$0189: ‘Come now, dost thou think leeches grow on trees?’[wait][line]‘I have expenses, taxes to pay, a wife, two kids, and a brand new cow[.’][wait][end-FC]

; data -> code
; control flow target (from $86A1)
0x0186A8|$06:$8698:68      	PLA        
0x0186A9|$06:$8699:68      	PLA        
0x0186AA|$06:$869A:4C 6A 85	JMP $856A  	; repeat service loop

; control flow target (from $868B)
; call to code in a different bank ($0F:$FA2E)
0x0186AD|$06:$869D:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x0186B0|$06:$86A0:8A	; String ID #$018A: ‘What's this?[line]Thou hast no gold?[line]Well then get some!’[wait][end-FC]

; data -> code
0x0186B1|$06:$86A1:4C 98 86	JMP $8698  

; given hero ID in $97, multiply A by that hero's level, store results in ($10-$11) and ($8F-$90); consumes $0C
; control flow target (from $85A5, $85FC, $864A)
0x0186B4|$06:$86A4:85 0C   	STA $0C    
0x0186B6|$06:$86A6:20 AA 8D	JSR $8DAA  	; given hero ID in $97, set Y to start of hero's data in $062D,Y, i.e. Y = $97 * #$12
0x0186B9|$06:$86A9:B9 3E 06	LDA $063E,Y	; Midenhall Level
; multiply A by $0C, store results in ($10-$11) and ($8F-$90); consumes $0C
; control flow target (from $822B)
0x0186BC|$06:$86AC:85 0E   	STA $0E    
0x0186BE|$06:$86AE:A9 00   	LDA #$00   
0x0186C0|$06:$86B0:85 0D   	STA $0D    
0x0186C2|$06:$86B2:85 0F   	STA $0F    
; call to code in a different bank ($0F:$C339)
0x0186C4|$06:$86B4:20 39 C3	JSR $C339  	; 16-bit multiplication: ($10-$11) = ($0C-$0D) * ($0E-$0F); consumes $0C-$0F
0x0186C7|$06:$86B7:A5 10   	LDA $10    
0x0186C9|$06:$86B9:85 8F   	STA $8F    
0x0186CB|$06:$86BB:A5 11   	LDA $11    
0x0186CD|$06:$86BD:85 90   	STA $90    
0x0186CF|$06:$86BF:60      	RTS        

; handler for dialogue ID #$28 (Lottery)
; control flow target (from $81E9)
; call to code in a different bank ($0F:$F6F0)
0x0186D0|$06:$86C0:20 F0 F6	JSR $F6F0  	; open main dialogue window and display string ID specified by byte following JSR + #$0100

; code -> data
; indirect data load target
0x0186D3|$06:$86C3:94	; String ID #$0194: ‘Step right up and welcome to the Lottery.[line]Art thou going to play?’[FD][FD][end-FC]

; data -> code
0x0186D4|$06:$86C4:20 D0 9A	JSR $9AD0  	; open YES/NO menu, return selected option in A
0x0186D7|$06:$86C7:C9 00   	CMP #$00   	; YES
0x0186D9|$06:$86C9:F0 0A   	BEQ $86D5  
; finish lottery conversation
; control flow target (from $86E2, $870B, $8723, $873C)
; call to code in a different bank ($0F:$FA2E)
0x0186DB|$06:$86CB:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x0186DE|$06:$86CE:95	; String ID #$0195: ‘Well, perhaps some other time[.’][end-FC]

; data -> code
0x0186DF|$06:$86CF:20 05 89	JSR $8905  
0x0186E2|$06:$86D2:4C 92 80	JMP $8092  	; wait until all joypad buttons are released and then some button pressed then wipe menus and exit COMMAND menu

; control flow target (from $86C9)
0x0186E5|$06:$86D5:A9 33   	LDA #$33   	; Item ID #$33: Lottery Ticket
0x0186E7|$06:$86D7:20 69 A3	JSR $A369  	; check for item A in party inventory, returning inventory index of item in A/X if found, #$FF if not
0x0186EA|$06:$86DA:C9 FF   	CMP #$FF   
0x0186EC|$06:$86DC:D0 07   	BNE $86E5  
; call to code in a different bank ($0F:$FA2E)
0x0186EE|$06:$86DE:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x0186F1|$06:$86E1:96	; String ID #$0196: ‘I'm afraid thou must have a Lottery Ticket[.’][wait][end-FC]

; data -> code
0x0186F2|$06:$86E2:4C CB 86	JMP $86CB  	; finish lottery conversation

; control flow target (from $86DC)
0x0186F5|$06:$86E5:4A      	LSR        	; convert party inventory index to hero ID
0x0186F6|$06:$86E6:4A      	LSR        
0x0186F7|$06:$86E7:4A      	LSR        
0x0186F8|$06:$86E8:85 97   	STA $97    	; subject hero ID $97
; call to code in a different bank ($0F:$FA2E)
0x0186FA|$06:$86EA:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x0186FD|$06:$86ED:97	; String ID #$0197: ‘Dost thou wish to hear how the game is played?’[FD][FD][end-FC]

; data -> code
0x0186FE|$06:$86EE:20 D0 9A	JSR $9AD0  	; open YES/NO menu, return selected option in A
0x018701|$06:$86F1:C9 00   	CMP #$00   	; YES
0x018703|$06:$86F3:D0 04   	BNE $86F9  
; call to code in a different bank ($0F:$FA2E)
0x018705|$06:$86F5:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x018708|$06:$86F8:98	; String ID #$0198: ‘As the Lottery wheels spin, push thy controller button to stop them[.’][wait][line]‘Three [sun] marks win the first prize--a Golden Card[.’][wait][line]‘Three [star] marks win the second prize--the Wizard's Ring[.’][wait][line][FD][FD]‘There may be further prizes, too[.’][wait][end-FC]

; data -> code
; control flow target (from $86F3)
0x018709|$06:$86F9:20 44 87	JSR $8744  
; call to code in a different bank ($0F:$FA2E)
0x01870C|$06:$86FC:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x01870F|$06:$86FF:99	; String ID #$0199: ‘Let's play now!’[FD][FD][no voice][no voice][no voice][no voice][no voice][no voice][no voice][sun] [star] [moon][FD][FD][end-FC]

; data -> code
0x018710|$06:$8700:20 78 87	JSR $8778  
0x018713|$06:$8703:C9 05   	CMP #$05   
0x018715|$06:$8705:D0 07   	BNE $870E  
; call to code in a different bank ($0F:$FA2E)
0x018717|$06:$8707:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x01871A|$06:$870A:9C	; String ID #$019C: [wait]‘That was close.[line]As a consolation prize I'll give thee a lottery ticket[.’][wait][end-FC]

; data -> code
0x01871B|$06:$870B:4C CB 86	JMP $86CB  	; finish lottery conversation

; control flow target (from $8705)
0x01871E|$06:$870E:85 8F   	STA $8F    	; prize number
0x018720|$06:$8710:A9 00   	LDA #$00   
0x018722|$06:$8712:85 90   	STA $90    
0x018724|$06:$8714:A9 33   	LDA #$33   	; Item ID #$33: Lottery Ticket
0x018726|$06:$8716:20 C3 8D	JSR $8DC3  	; given a hero ID in $97 and an item ID in A, remove that item from hero's inventory if present and SEC, CLC otherwise
0x018729|$06:$8719:A5 8F   	LDA $8F    
0x01872B|$06:$871B:C9 FF   	CMP #$FF   
0x01872D|$06:$871D:D0 07   	BNE $8726  
; call to code in a different bank ($0F:$FA2E)
0x01872F|$06:$871F:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x018732|$06:$8722:9B	; String ID #$019B: [wait]‘Sorry, thou hast lost. Better luck next time[.’][wait][end-FC]

; data -> code
0x018733|$06:$8723:4C CB 86	JMP $86CB  	; finish lottery conversation

; control flow target (from $871D)
0x018736|$06:$8726:A8      	TAY        
0x018737|$06:$8727:B9 3F 87	LDA $873F,Y	; Lottery prizes
0x01873A|$06:$872A:85 96   	STA $96    	; temp storage for item/spell/type/etc. IDs
0x01873C|$06:$872C:85 95   	STA $95    	; ID for [item] and [spell] control codes
0x01873E|$06:$872E:20 7E 8D	JSR $8D7E  	; given hero ID in $97 and item ID in $96, try to add item to first empty slot in hero's inventory; SEC if added, CLC if no empty slots
0x018741|$06:$8731:E6 8F   	INC $8F    
0x018743|$06:$8733:A9 06   	LDA #$06   	; Music ID #$06: lottery win BGM
; call to code in a different bank ($0F:$C58D)
0x018745|$06:$8735:20 8D C5	JSR $C58D  	; play PCM specified by A (>= #$80 = sound effect [SFX], < #$80 = background music [BGM]), wait for it to finish, then play previous BGM
; call to code in a different bank ($0F:$FA2E)
0x018748|$06:$8738:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x01874B|$06:$873B:9A	; String ID #$019A: [wait]‘Congratulations![line]Thou hast won prize number [number], the [item]!’[wait][end-FC]

; data -> code
0x01874C|$06:$873C:4C CB 86	JMP $86CB  	; finish lottery conversation


; code -> data
; Lottery prizes
; indexed data load target (from $8727)
0x01874F|$06:$873F:32	; Item ID #$32: Golden Card
0x018750|$06:$8740:3D	; Item ID #$3D: Wizard’s Ring
0x018751|$06:$8741:03	; Item ID #$03: Wizard’s Wand
0x018752|$06:$8742:30	; Item ID #$30: Dragon’s Bane
0x018753|$06:$8743:3C	; Item ID #$3C: Medical Herb

; data -> code
; control flow target (from $86F9)
; call to code in a different bank ($0F:$C3AB)
0x018754|$06:$8744:20 AB C3	JSR $C3AB  	; generate a random number and store it in $32-$33 (two passes)
0x018757|$06:$8747:A5 32   	LDA $32    	; RNG byte 0
0x018759|$06:$8749:4A      	LSR        
0x01875A|$06:$874A:29 78   	AND #$78   
0x01875C|$06:$874C:85 DD   	STA $DD    
0x01875E|$06:$874E:A2 00   	LDX #$00   
0x018760|$06:$8750:20 78 88	JSR $8878  
0x018763|$06:$8753:A5 32   	LDA $32    	; RNG byte 0
0x018765|$06:$8755:0A      	ASL        
0x018766|$06:$8756:0A      	ASL        
0x018767|$06:$8757:0A      	ASL        
0x018768|$06:$8758:29 78   	AND #$78   
0x01876A|$06:$875A:85 DF   	STA $DF    
0x01876C|$06:$875C:A2 08   	LDX #$08   
0x01876E|$06:$875E:20 78 88	JSR $8878  
0x018771|$06:$8761:A5 33   	LDA $33    	; RNG byte 1
0x018773|$06:$8763:29 78   	AND #$78   
0x018775|$06:$8765:85 E1   	STA $E1    
0x018777|$06:$8767:A2 10   	LDX #$10   
0x018779|$06:$8769:20 78 88	JSR $8878  
0x01877C|$06:$876C:A9 00   	LDA #$00   
0x01877E|$06:$876E:85 DE   	STA $DE    
0x018780|$06:$8770:85 E0   	STA $E0    
0x018782|$06:$8772:85 E2   	STA $E2    
0x018784|$06:$8774:20 5B 89	JSR $895B  
0x018787|$06:$8777:60      	RTS        

; control flow target (from $8700)
0x018788|$06:$8778:A9 00   	LDA #$00   
0x01878A|$06:$877A:85 DC   	STA $DC    
0x01878C|$06:$877C:A5 2F   	LDA $2F    	; joypad 1 data
0x01878E|$06:$877E:29 01   	AND #$01   
0x018790|$06:$8780:85 DA   	STA $DA    
; control flow target (from $87D5)
0x018792|$06:$8782:A5 DC   	LDA $DC    
0x018794|$06:$8784:29 07   	AND #$07   
0x018796|$06:$8786:C9 07   	CMP #$07   
0x018798|$06:$8788:F0 1D   	BEQ $87A7  
; control flow target (from $8799)
0x01879A|$06:$878A:20 1F 89	JSR $891F  
0x01879D|$06:$878D:45 DC   	EOR $DC    
0x01879F|$06:$878F:4A      	LSR        
0x0187A0|$06:$8790:90 02   	BCC $8794  
0x0187A2|$06:$8792:E6 DC   	INC $DC    
; control flow target (from $8790)
0x0187A4|$06:$8794:A5 DC   	LDA $DC    
0x0187A6|$06:$8796:4A      	LSR        
0x0187A7|$06:$8797:29 03   	AND #$03   
0x0187A9|$06:$8799:F0 EF   	BEQ $878A  
0x0187AB|$06:$879B:90 0A   	BCC $87A7  
0x0187AD|$06:$879D:0A      	ASL        
0x0187AE|$06:$879E:AA      	TAX        
0x0187AF|$06:$879F:CA      	DEX        
0x0187B0|$06:$87A0:CA      	DEX        
0x0187B1|$06:$87A1:B5 DE   	LDA $DE,X  
0x0187B3|$06:$87A3:09 40   	ORA #$40   
0x0187B5|$06:$87A5:95 DE   	STA $DE,X  
; control flow target (from $8788, $879B)
0x0187B7|$06:$87A7:A2 00   	LDX #$00   
; control flow target (from $87C9)
0x0187B9|$06:$87A9:86 D5   	STX $D5    
0x0187BB|$06:$87AB:8A      	TXA        
0x0187BC|$06:$87AC:0A      	ASL        
0x0187BD|$06:$87AD:0A      	ASL        
0x0187BE|$06:$87AE:85 D6   	STA $D6    
0x0187C0|$06:$87B0:B5 DD   	LDA $DD,X  
0x0187C2|$06:$87B2:85 D7   	STA $D7    
0x0187C4|$06:$87B4:B5 DE   	LDA $DE,X  
0x0187C6|$06:$87B6:85 D8   	STA $D8    
0x0187C8|$06:$87B8:20 1A 88	JSR $881A  
0x0187CB|$06:$87BB:A6 D5   	LDX $D5    
0x0187CD|$06:$87BD:A5 D7   	LDA $D7    
0x0187CF|$06:$87BF:95 DD   	STA $DD,X  
0x0187D1|$06:$87C1:A5 D8   	LDA $D8    
0x0187D3|$06:$87C3:95 DE   	STA $DE,X  
0x0187D5|$06:$87C5:E8      	INX        
0x0187D6|$06:$87C6:E8      	INX        
0x0187D7|$06:$87C7:E0 06   	CPX #$06   
0x0187D9|$06:$87C9:D0 DE   	BNE $87A9  
0x0187DB|$06:$87CB:20 5B 89	JSR $895B  
0x0187DE|$06:$87CE:A5 DE   	LDA $DE    
0x0187E0|$06:$87D0:25 E0   	AND $E0    
0x0187E2|$06:$87D2:25 E2   	AND $E2    
0x0187E4|$06:$87D4:0A      	ASL        
0x0187E5|$06:$87D5:90 AB   	BCC $8782  
0x0187E7|$06:$87D7:A2 05   	LDX #$05   
0x0187E9|$06:$87D9:A9 00   	LDA #$00   
; control flow target (from $87DF)
0x0187EB|$06:$87DB:9D 62 06	STA $0662,X	; Moonbrooke Level
0x0187EE|$06:$87DE:CA      	DEX        
0x0187EF|$06:$87DF:D0 FA   	BNE $87DB  
0x0187F1|$06:$87E1:A0 00   	LDY #$00   
; control flow target (from $87FF)
0x0187F3|$06:$87E3:B6 DD   	LDX $DD,Y  
0x0187F5|$06:$87E5:8A      	TXA        
0x0187F6|$06:$87E6:4A      	LSR        
0x0187F7|$06:$87E7:4A      	LSR        
0x0187F8|$06:$87E8:4A      	LSR        
0x0187F9|$06:$87E9:29 0F   	AND #$0F   
0x0187FB|$06:$87EB:85 D5   	STA $D5    
0x0187FD|$06:$87ED:98      	TYA        
0x0187FE|$06:$87EE:0A      	ASL        
0x0187FF|$06:$87EF:0A      	ASL        
0x018800|$06:$87F0:0A      	ASL        
0x018801|$06:$87F1:05 D5   	ORA $D5    
0x018803|$06:$87F3:AA      	TAX        
0x018804|$06:$87F4:BD D5 88	LDA $88D5,X
0x018807|$06:$87F7:AA      	TAX        
0x018808|$06:$87F8:FE 63 06	INC $0663,X	; monster ID, group 1
0x01880B|$06:$87FB:C8      	INY        
0x01880C|$06:$87FC:C8      	INY        
0x01880D|$06:$87FD:C0 06   	CPY #$06   
0x01880F|$06:$87FF:D0 E2   	BNE $87E3  
0x018811|$06:$8801:A2 00   	LDX #$00   
; control flow target (from $8811)
0x018813|$06:$8803:BD 63 06	LDA $0663,X	; monster ID, group 1
0x018816|$06:$8806:C9 03   	CMP #$03   
0x018818|$06:$8808:F0 0B   	BEQ $8815  
0x01881A|$06:$880A:C9 02   	CMP #$02   
0x01881C|$06:$880C:F0 09   	BEQ $8817  
0x01881E|$06:$880E:E8      	INX        
0x01881F|$06:$880F:E0 05   	CPX #$05   
0x018821|$06:$8811:D0 F0   	BNE $8803  
0x018823|$06:$8813:A2 FF   	LDX #$FF   
; control flow target (from $8808)
0x018825|$06:$8815:8A      	TXA        
0x018826|$06:$8816:60      	RTS        

; control flow target (from $880C)
0x018827|$06:$8817:A9 05   	LDA #$05   
0x018829|$06:$8819:60      	RTS        

; control flow target (from $87B8)
0x01882A|$06:$881A:A5 D8   	LDA $D8    
0x01882C|$06:$881C:30 51   	BMI $886F  
0x01882E|$06:$881E:29 07   	AND #$07   
0x018830|$06:$8820:D0 4B   	BNE $886D  
0x018832|$06:$8822:E6 D7   	INC $D7    
0x018834|$06:$8824:20 7C 88	JSR $887C  
0x018837|$06:$8827:A5 D7   	LDA $D7    
0x018839|$06:$8829:29 07   	AND #$07   
0x01883B|$06:$882B:D0 2C   	BNE $8859  
0x01883D|$06:$882D:A9 85   	LDA #$85   	; Music ID #$85: single beep SFX
; call to code in a different bank ($0F:$C561)
0x01883F|$06:$882F:20 61 C5	JSR $C561  	; play PCM specified by A (>= #$80 = sound effect [SFX], < #$80 = background music [BGM])
0x018842|$06:$8832:A5 D8   	LDA $D8    
0x018844|$06:$8834:29 78   	AND #$78   
0x018846|$06:$8836:C9 40   	CMP #$40   
0x018848|$06:$8838:90 1F   	BCC $8859  
0x01884A|$06:$883A:C9 78   	CMP #$78   
0x01884C|$06:$883C:B0 14   	BCS $8852  
0x01884E|$06:$883E:18      	CLC        
0x01884F|$06:$883F:69 08   	ADC #$08   
0x018851|$06:$8841:85 D8   	STA $D8    
0x018853|$06:$8843:29 20   	AND #$20   
0x018855|$06:$8845:F0 12   	BEQ $8859  
; call to code in a different bank ($0F:$C3AB)
0x018857|$06:$8847:20 AB C3	JSR $C3AB  	; generate a random number and store it in $32-$33 (two passes)
0x01885A|$06:$884A:A5 32   	LDA $32    	; RNG byte 0
0x01885C|$06:$884C:45 D8   	EOR $D8    
0x01885E|$06:$884E:29 18   	AND #$18   
0x018860|$06:$8850:D0 07   	BNE $8859  
; control flow target (from $883C)
0x018862|$06:$8852:A5 D8   	LDA $D8    
0x018864|$06:$8854:09 80   	ORA #$80   
0x018866|$06:$8856:85 D8   	STA $D8    
0x018868|$06:$8858:60      	RTS        

; control flow target (from $882B, $8838, $8845, $8850)
0x018869|$06:$8859:A5 D8   	LDA $D8    
0x01886B|$06:$885B:29 78   	AND #$78   
0x01886D|$06:$885D:85 D8   	STA $D8    
0x01886F|$06:$885F:4A      	LSR        
0x018870|$06:$8860:4A      	LSR        
0x018871|$06:$8861:4A      	LSR        
0x018872|$06:$8862:29 07   	AND #$07   
0x018874|$06:$8864:AA      	TAX        
0x018875|$06:$8865:BD 70 88	LDA $8870,X
0x018878|$06:$8868:05 D8   	ORA $D8    
0x01887A|$06:$886A:85 D8   	STA $D8    
0x01887C|$06:$886C:60      	RTS        

; control flow target (from $8820)
0x01887D|$06:$886D:C6 D8   	DEC $D8    
; control flow target (from $881C)
0x01887F|$06:$886F:60      	RTS        


; code -> data
; indexed data load target (from $8865)
0x018880|$06:$8870:00
0x018881|$06:$8871:01
0x018882|$06:$8872:01
0x018883|$06:$8873:02
0x018884|$06:$8874:02
0x018885|$06:$8875:03
0x018886|$06:$8876:04
0x018887|$06:$8877:07

; data -> code
; control flow target (from $8750, $875E, $8769)
0x018888|$06:$8878:86 D6   	STX $D6    
0x01888A|$06:$887A:85 D7   	STA $D7    
; control flow target (from $8824)
0x01888C|$06:$887C:A5 D6   	LDA $D6    
0x01888E|$06:$887E:0A      	ASL        
0x01888F|$06:$887F:85 D9   	STA $D9    
0x018891|$06:$8881:A5 D7   	LDA $D7    
0x018893|$06:$8883:4A      	LSR        
0x018894|$06:$8884:4A      	LSR        
0x018895|$06:$8885:4A      	LSR        
0x018896|$06:$8886:29 0F   	AND #$0F   
0x018898|$06:$8888:05 D9   	ORA $D9    
0x01889A|$06:$888A:AA      	TAX        
0x01889B|$06:$888B:A5 D7   	LDA $D7    
0x01889D|$06:$888D:29 07   	AND #$07   
0x01889F|$06:$888F:85 D9   	STA $D9    
0x0188A1|$06:$8891:BD D5 88	LDA $88D5,X
0x0188A4|$06:$8894:0A      	ASL        
0x0188A5|$06:$8895:0A      	ASL        
0x0188A6|$06:$8896:0A      	ASL        
0x0188A7|$06:$8897:18      	CLC        
0x0188A8|$06:$8898:65 D9   	ADC $D9    
0x0188AA|$06:$889A:AA      	TAX        
0x0188AB|$06:$889B:A4 D6   	LDY $D6    
; control flow target (from $88A8)
0x0188AD|$06:$889D:BD A2 89	LDA $89A2,X
0x0188B0|$06:$88A0:99 63 06	STA $0663,Y	; monster ID, group 1
0x0188B3|$06:$88A3:C8      	INY        
0x0188B4|$06:$88A4:E8      	INX        
0x0188B5|$06:$88A5:8A      	TXA        
0x0188B6|$06:$88A6:29 07   	AND #$07   
0x0188B8|$06:$88A8:D0 F3   	BNE $889D  
0x0188BA|$06:$88AA:A5 D9   	LDA $D9    
0x0188BC|$06:$88AC:F0 26   	BEQ $88D4  
0x0188BE|$06:$88AE:A5 D6   	LDA $D6    
0x0188C0|$06:$88B0:0A      	ASL        
0x0188C1|$06:$88B1:85 D9   	STA $D9    
0x0188C3|$06:$88B3:A5 D7   	LDA $D7    
0x0188C5|$06:$88B5:4A      	LSR        
0x0188C6|$06:$88B6:4A      	LSR        
0x0188C7|$06:$88B7:4A      	LSR        
0x0188C8|$06:$88B8:18      	CLC        
0x0188C9|$06:$88B9:69 01   	ADC #$01   
0x0188CB|$06:$88BB:29 0F   	AND #$0F   
0x0188CD|$06:$88BD:05 D9   	ORA $D9    
0x0188CF|$06:$88BF:AA      	TAX        
0x0188D0|$06:$88C0:BD D5 88	LDA $88D5,X
0x0188D3|$06:$88C3:0A      	ASL        
0x0188D4|$06:$88C4:0A      	ASL        
0x0188D5|$06:$88C5:0A      	ASL        
0x0188D6|$06:$88C6:AA      	TAX        
; control flow target (from $88D2)
0x0188D7|$06:$88C7:BD A2 89	LDA $89A2,X
0x0188DA|$06:$88CA:99 63 06	STA $0663,Y	; monster ID, group 1
0x0188DD|$06:$88CD:E8      	INX        
0x0188DE|$06:$88CE:C8      	INY        
0x0188DF|$06:$88CF:98      	TYA        
0x0188E0|$06:$88D0:29 07   	AND #$07   
0x0188E2|$06:$88D2:D0 F3   	BNE $88C7  
; control flow target (from $88AC)
0x0188E4|$06:$88D4:60      	RTS        


; code -> data
; indexed data load target (from $87F4, $8891, $88C0)
0x0188E5|$06:$88D5:04
0x0188E6|$06:$88D6:03
0x0188E7|$06:$88D7:02
0x0188E8|$06:$88D8:04
0x0188E9|$06:$88D9:00
0x0188EA|$06:$88DA:04
0x0188EB|$06:$88DB:01
0x0188EC|$06:$88DC:04
0x0188ED|$06:$88DD:02
0x0188EE|$06:$88DE:03
0x0188EF|$06:$88DF:04
0x0188F0|$06:$88E0:01
0x0188F1|$06:$88E1:03
0x0188F2|$06:$88E2:04
0x0188F3|$06:$88E3:02
0x0188F4|$06:$88E4:03
0x0188F5|$06:$88E5:02
0x0188F6|$06:$88E6:04
0x0188F7|$06:$88E7:03
0x0188F8|$06:$88E8:01
0x0188F9|$06:$88E9:04
0x0188FA|$06:$88EA:00
0x0188FB|$06:$88EB:02
0x0188FC|$06:$88EC:04
0x0188FD|$06:$88ED:01
0x0188FE|$06:$88EE:03
0x0188FF|$06:$88EF:04
0x018900|$06:$88F0:03
0x018901|$06:$88F1:01
0x018902|$06:$88F2:04
0x018903|$06:$88F3:00
0x018904|$06:$88F4:04
0x018905|$06:$88F5:04
0x018906|$06:$88F6:00
0x018907|$06:$88F7:04
0x018908|$06:$88F8:02
0x018909|$06:$88F9:01
0x01890A|$06:$88FA:04
0x01890B|$06:$88FB:03
0x01890C|$06:$88FC:02
0x01890D|$06:$88FD:04
0x01890E|$06:$88FE:03
0x01890F|$06:$88FF:01
0x018910|$06:$8900:04
0x018911|$06:$8901:02
0x018912|$06:$8902:03
0x018913|$06:$8903:04
0x018914|$06:$8904:03

; data -> code
; control flow target (from $86CF, $890A)
; call to code in a different bank ($0F:$C1DC)
0x018915|$06:$8905:20 DC C1	JSR $C1DC  	; set $6007 = #$00, set $00 = #$01, wait for interrupt, set $00 = #$FF
0x018918|$06:$8908:A5 02   	LDA $02    
0x01891A|$06:$890A:D0 F9   	BNE $8905  
0x01891C|$06:$890C:A9 05   	LDA #$05   
0x01891E|$06:$890E:85 08   	STA $08    
0x018920|$06:$8910:AD 1D 89	LDA $891D  
0x018923|$06:$8913:85 D7   	STA $D7    
0x018925|$06:$8915:AD 1E 89	LDA $891E  
0x018928|$06:$8918:85 D8   	STA $D8    
0x01892A|$06:$891A:4C 73 89	JMP $8973  


; code -> data
; data load target (from $8910)
0x01892D|$06:$891D:A2
; data load target (from $8915)
0x01892E|$06:$891E:   89	; $06:$89A2

; data -> code
; control flow target (from $878A)
0x01892F|$06:$891F:A2 20   	LDX #$20   
0x018931|$06:$8921:A5 DC   	LDA $DC    
0x018933|$06:$8923:29 06   	AND #$06   
0x018935|$06:$8925:D0 07   	BNE $892E  
0x018937|$06:$8927:85 DB   	STA $DB    
; call to code in a different bank ($0F:$C1DC)
0x018939|$06:$8929:20 DC C1	JSR $C1DC  	; set $6007 = #$00, set $00 = #$01, wait for interrupt, set $00 = #$FF
0x01893C|$06:$892C:A2 08   	LDX #$08   
; control flow target (from $8925)
0x01893E|$06:$892E:86 DB   	STX $DB    
; call to code in a different bank ($0F:$C476)
0x018940|$06:$8930:20 76 C4	JSR $C476  	; read joypad 1 data into $2F
0x018943|$06:$8933:A5 2F   	LDA $2F    	; joypad 1 data
0x018945|$06:$8935:45 DA   	EOR $DA    
0x018947|$06:$8937:4A      	LSR        
0x018948|$06:$8938:90 07   	BCC $8941  
0x01894A|$06:$893A:A5 2F   	LDA $2F    	; joypad 1 data
0x01894C|$06:$893C:29 01   	AND #$01   
0x01894E|$06:$893E:85 DA   	STA $DA    
0x018950|$06:$8940:60      	RTS        

; control flow target (from $8938)
0x018951|$06:$8941:A5 DC   	LDA $DC    
0x018953|$06:$8943:18      	CLC        
0x018954|$06:$8944:69 08   	ADC #$08   
0x018956|$06:$8946:85 DC   	STA $DC    
0x018958|$06:$8948:90 10   	BCC $895A  
0x01895A|$06:$894A:E6 DA   	INC $DA    
0x01895C|$06:$894C:E6 DA   	INC $DA    
0x01895E|$06:$894E:A5 DA   	LDA $DA    
0x018960|$06:$8950:C5 DB   	CMP $DB    
0x018962|$06:$8952:90 06   	BCC $895A  
0x018964|$06:$8954:49 01   	EOR #$01   
0x018966|$06:$8956:29 01   	AND #$01   
0x018968|$06:$8958:85 DA   	STA $DA    
; control flow target (from $8948, $8952)
0x01896A|$06:$895A:60      	RTS        

; control flow target (from $8774, $87CB, $8962)
0x01896B|$06:$895B:A5 02   	LDA $02    
0x01896D|$06:$895D:F0 06   	BEQ $8965  
; call to code in a different bank ($0F:$C1DC)
0x01896F|$06:$895F:20 DC C1	JSR $C1DC  	; set $6007 = #$00, set $00 = #$01, wait for interrupt, set $00 = #$FF
0x018972|$06:$8962:4C 5B 89	JMP $895B  

; control flow target (from $895D)
0x018975|$06:$8965:A9 05   	LDA #$05   
0x018977|$06:$8967:85 08   	STA $08    
0x018979|$06:$8969:AD 8C 89	LDA $898C  
0x01897C|$06:$896C:85 D7   	STA $D7    
0x01897E|$06:$896E:AD 8D 89	LDA $898D  
0x018981|$06:$8971:85 D8   	STA $D8    
; control flow target (from $891A)
0x018983|$06:$8973:A9 A0   	LDA #$A0   
0x018985|$06:$8975:A0 00   	LDY #$00   
0x018987|$06:$8977:20 8E 89	JSR $898E  
0x01898A|$06:$897A:A9 B0   	LDA #$B0   
0x01898C|$06:$897C:A0 08   	LDY #$08   
0x01898E|$06:$897E:20 8E 89	JSR $898E  
0x018991|$06:$8981:A9 C0   	LDA #$C0   
0x018993|$06:$8983:A0 10   	LDY #$10   
0x018995|$06:$8985:20 8E 89	JSR $898E  
; call to code in a different bank ($0F:$C1DC)
0x018998|$06:$8988:20 DC C1	JSR $C1DC  	; set $6007 = #$00, set $00 = #$01, wait for interrupt, set $00 = #$FF
0x01899B|$06:$898B:60      	RTS        


; code -> data
; data load target (from $8969)
0x01899C|$06:$898C:63
; data load target (from $896E)
0x01899D|$06:$898D:   06	; $06:$0663; monster ID, group 1

; data -> code
; control flow target (from $8977, $897E, $8985)
0x01899E|$06:$898E:85 07   	STA $07    
; control flow target (from $899F)
0x0189A0|$06:$8990:84 D5   	STY $D5    
0x0189A2|$06:$8992:B1 D7   	LDA ($D7),Y
0x0189A4|$06:$8994:85 09   	STA $09    
; call to code in a different bank ($0F:$C1FA)
0x0189A6|$06:$8996:20 FA C1	JSR $C1FA  	; wait for $02 to not be #$C0, write PPU address in $07-$08 and data in $09 to PPU write buffer at $0300,$02, $01 += 1, $02 += 3, and set $0183 to #$00
0x0189A9|$06:$8999:A4 D5   	LDY $D5    
0x0189AB|$06:$899B:C8      	INY        
0x0189AC|$06:$899C:98      	TYA        
0x0189AD|$06:$899D:29 07   	AND #$07   
0x0189AF|$06:$899F:D0 EF   	BNE $8990  
0x0189B1|$06:$89A1:60      	RTS        


; code -> data
; indexed data load target (from $889D, $88C7)
; indirect data load target (via $891D)
0x0189B2|$06:$89A2:10 82 38 7C 7C 38 82 10
0x0189BA|$06:$89AA:10 10 FE 7C 38 7C 6C 82
0x0189C2|$06:$89B2:70 38 1C 1C 1C 1C 38 70
0x0189CA|$06:$89BA:10 10 38 7C FE FE FE 7C
0x0189D2|$06:$89C2:00 6C FE FE 7C 7C 38 10

; data -> code
; COMMAND menu STATUS command handler
; indirect control flow target (via $808A)
; call to code in a different bank ($0F:$F537)
0x0189DA|$06:$89CA:20 37 F5	JSR $F537  	; display hero select STATUS menu if necessary
0x0189DD|$06:$89CD:C9 FF   	CMP #$FF   
0x0189DF|$06:$89CF:D0 03   	BNE $89D4  
0x0189E1|$06:$89D1:4C 6D 80	JMP $806D  	; exit COMMAND menu

; control flow target (from $89CF)
0x0189E4|$06:$89D4:85 97   	STA $97    	; subject hero ID $97
; call to code in a different bank ($0F:$F497)
0x0189E6|$06:$89D6:20 97 F4	JSR $F497  	; display Menu ID #$03: Main menu: selected hero's status
0x0189E9|$06:$89D9:20 9D 80	JSR $809D  	; wait until all joypad buttons are released and then some button pressed
; call to code in a different bank ($0F:$F492)
0x0189EC|$06:$89DC:20 92 F4	JSR $F492  	; display Menu ID #$02: Main menu: gold/crests
0x0189EF|$06:$89DF:A5 97   	LDA $97    	; subject hero ID $97
; call to code in a different bank ($0F:$F63B)
0x0189F1|$06:$89E1:20 3B F6	JSR $F63B  	; display Menu ID #$1C: Main menu: status screen equipped items
0x0189F4|$06:$89E4:C6 97   	DEC $97    	; subject hero ID $97
0x0189F6|$06:$89E6:30 17   	BMI $89FF  	; Midenhall has no magic, so no need to show spell lists
0x0189F8|$06:$89E8:A6 97   	LDX $97    	; subject hero ID $97
0x0189FA|$06:$89EA:BD 18 06	LDA $0618,X	; Cannock's learned battle spell list
0x0189FD|$06:$89ED:1D 1A 06	ORA $061A,X	; Cannock's learned field spell list
0x018A00|$06:$89F0:F0 0D   	BEQ $89FF  	; if casters haven't learned any spell yet (which is impossible), no need to show spell lists
0x018A02|$06:$89F2:20 9D 80	JSR $809D  	; wait until all joypad buttons are released and then some button pressed
0x018A05|$06:$89F5:A9 85   	LDA #$85   	; Music ID #$85: single beep SFX
; call to code in a different bank ($0F:$C561)
0x018A07|$06:$89F7:20 61 C5	JSR $C561  	; play PCM specified by A (>= #$80 = sound effect [SFX], < #$80 = background music [BGM])
0x018A0A|$06:$89FA:A5 97   	LDA $97    	; subject hero ID $97
; call to code in a different bank ($0F:$F64E)
0x018A0C|$06:$89FC:20 4E F6	JSR $F64E  	; display spell lists
; control flow target (from $89E6, $89F0)
0x018A0F|$06:$89FF:4C 92 80	JMP $8092  	; wait until all joypad buttons are released and then some button pressed then wipe menus and exit COMMAND menu

; COMMAND menu EQUIP handler
; indirect control flow target (via $8090)
; call to code in a different bank ($0F:$F56B)
0x018A12|$06:$8A02:20 6B F5	JSR $F56B  	; display appropriate main EQUIP hero select menu
0x018A15|$06:$8A05:C9 FF   	CMP #$FF   
0x018A17|$06:$8A07:D0 03   	BNE $8A0C  
0x018A19|$06:$8A09:4C 6D 80	JMP $806D  	; exit COMMAND menu

; control flow target (from $8A07)
0x018A1C|$06:$8A0C:85 97   	STA $97    	; subject hero ID $97
0x018A1E|$06:$8A0E:A9 00   	LDA #$00   
0x018A20|$06:$8A10:85 49   	STA $49    	; object hero/target/item/string ID $49; EQUIP sub-type
0x018A22|$06:$8A12:85 A5   	STA $A5    
0x018A24|$06:$8A14:A9 00   	LDA #$00   
; call to code in a different bank ($0F:$CF6A)
0x018A26|$06:$8A16:20 6A CF	JSR $CF6A  	; wipe selected menu region
; control flow target (from $8AEB)
0x018A29|$06:$8A19:A6 49   	LDX $49    	; object hero/target/item/string ID $49
0x018A2B|$06:$8A1B:A5 97   	LDA $97    	; subject hero ID $97
; call to code in a different bank ($0F:$F5A3)
0x018A2D|$06:$8A1D:20 A3 F5	JSR $F5A3  	; given a hero ID in A and an item type in X, display the EQUIP sub-menu for hero A and item type X, returning the selected item ID in A
0x018A30|$06:$8A20:85 96   	STA $96    	; temp storage for item/spell/type/etc. IDs; new item to equip
; control flow target (from $8A35)
0x018A32|$06:$8A22:C9 FF   	CMP #$FF   
0x018A34|$06:$8A24:D0 18   	BNE $8A3E  
0x018A36|$06:$8A26:C6 49   	DEC $49    	; object hero/target/item/string ID $49
0x018A38|$06:$8A28:30 11   	BMI $8A3B  
; control flow target (from $8A39)
0x018A3A|$06:$8A2A:A6 49   	LDX $49    	; object hero/target/item/string ID $49
0x018A3C|$06:$8A2C:A5 97   	LDA $97    	; subject hero ID $97
; call to code in a different bank ($0F:$F5A3)
0x018A3E|$06:$8A2E:20 A3 F5	JSR $F5A3  	; given a hero ID in A and an item type in X, display the EQUIP sub-menu for hero A and item type X, returning the selected item ID in A
0x018A41|$06:$8A31:85 96   	STA $96    	; temp storage for item/spell/type/etc. IDs; new item to equip
0x018A43|$06:$8A33:C9 FE   	CMP #$FE   
0x018A45|$06:$8A35:D0 EB   	BNE $8A22  
0x018A47|$06:$8A37:C6 49   	DEC $49    	; object hero/target/item/string ID $49
0x018A49|$06:$8A39:10 EF   	BPL $8A2A  
; control flow target (from $8A28)
0x018A4B|$06:$8A3B:4C FF 8A	JMP $8AFF  	; wait #$14 interrupts, update each hero's stats based on their current EXP, wipe menu and exit COMMAND menu

; control flow target (from $8A24)
0x018A4E|$06:$8A3E:C9 FE   	CMP #$FE   
0x018A50|$06:$8A40:D0 20   	BNE $8A62  
0x018A52|$06:$8A42:4C E3 8A	JMP $8AE3  

; control flow target (from $8A8C)
0x018A55|$06:$8A45:29 3F   	AND #$3F   	; strip off the equipped bit
0x018A57|$06:$8A47:85 95   	STA $95    	; ID for [item] and [spell] control codes
; call to code in a different bank ($0F:$F6F0)
0x018A59|$06:$8A49:20 F0 F6	JSR $F6F0  	; open main dialogue window and display string ID specified by byte following JSR + #$0100

; code -> data
; indirect data load target
0x018A5C|$06:$8A4C:12	; String ID #$0112: It cannot be removed due to the curse.[end-FC]

; data -> code
; control flow target (from $8AE0)
0x018A5D|$06:$8A4D:A9 0A   	LDA #$0A   	; Music ID #$0A: cursed BGM
; call to code in a different bank ($0F:$C58D)
0x018A5F|$06:$8A4F:20 8D C5	JSR $C58D  	; play PCM specified by A (>= #$80 = sound effect [SFX], < #$80 = background music [BGM]), wait for it to finish, then play previous BGM
0x018A62|$06:$8A52:4C 5A 8A	JMP $8A5A  

; control flow target (from $8ABC)
0x018A65|$06:$8A55:A2 50   	LDX #$50   
; call to code in a different bank ($0F:$C1EE)
0x018A67|$06:$8A57:20 EE C1	JSR $C1EE  	; set $6007 = #$00, set $00 = #$01, wait for X interrupts, set $00 = #$FF
; control flow target (from $8A52)
0x018A6A|$06:$8A5A:A9 05   	LDA #$05   
; call to code in a different bank ($0F:$CF6A)
0x018A6C|$06:$8A5C:20 6A CF	JSR $CF6A  	; wipe selected menu region
0x018A6F|$06:$8A5F:4C E3 8A	JMP $8AE3  

; control flow target (from $8A40)
0x018A72|$06:$8A62:E6 A5   	INC $A5    
0x018A74|$06:$8A64:86 12   	STX $12    
0x018A76|$06:$8A66:A6 49   	LDX $49    	; object hero/target/item/string ID $49
0x018A78|$06:$8A68:BD 57 F7	LDA $F757,X	; table of first item IDs for each item type
0x018A7B|$06:$8A6B:85 0E   	STA $0E    	; lowest item ID of current item type
0x018A7D|$06:$8A6D:BD 58 F7	LDA $F758,X
0x018A80|$06:$8A70:85 0F   	STA $0F    	; lowest item ID of next item type
0x018A82|$06:$8A72:20 1D 8B	JSR $8B1D  	; set A to hero ID in $97 * 8
0x018A85|$06:$8A75:A8      	TAY        
0x018A86|$06:$8A76:A9 08   	LDA #$08   	; 8 inventory slots per hero
0x018A88|$06:$8A78:85 0C   	STA $0C    	; number of invetory slots left to check
; control flow target (from $8A94)
0x018A8A|$06:$8A7A:B9 00 06	LDA $0600,Y	; Midenhall inventory item 1 (| #$40 if equipped)
0x018A8D|$06:$8A7D:F0 12   	BEQ $8A91  
0x018A8F|$06:$8A7F:29 3F   	AND #$3F   	; strip off the equipped bit
0x018A91|$06:$8A81:C5 0E   	CMP $0E    	; lowest item ID of current item type
0x018A93|$06:$8A83:90 0C   	BCC $8A91  
0x018A95|$06:$8A85:C5 0F   	CMP $0F    	; lowest item ID of next item type
0x018A97|$06:$8A87:B0 08   	BCS $8A91  
0x018A99|$06:$8A89:20 23 8B	JSR $8B23  	; given party inventory index in Y, CLC and return equipped item ID in A if corresponding item is equipped and cursed, SEC and return unequipped item ID in A otherwise
0x018A9C|$06:$8A8C:90 B7   	BCC $8A45  
0x018A9E|$06:$8A8E:99 00 06	STA $0600,Y	; Midenhall inventory item 1 (| #$40 if equipped); note that this unequips the item!
; control flow target (from $8A7D, $8A83, $8A87)
0x018AA1|$06:$8A91:C8      	INY        
0x018AA2|$06:$8A92:C6 0C   	DEC $0C    	; number of invetory slots left to check
0x018AA4|$06:$8A94:D0 E4   	BNE $8A7A  
0x018AA6|$06:$8A96:A5 96   	LDA $96    	; temp storage for item/spell/type/etc. IDs
0x018AA8|$06:$8A98:F0 49   	BEQ $8AE3  
0x018AAA|$06:$8A9A:C9 FF   	CMP #$FF   
0x018AAC|$06:$8A9C:F0 45   	BEQ $8AE3  
0x018AAE|$06:$8A9E:A6 12   	LDX $12    
0x018AB0|$06:$8AA0:20 0F 8B	JSR $8B0F  	; given hero ID in $97 and hero inventory index in X, return corresponding item ID in A and party inventory index in X
0x018AB3|$06:$8AA3:29 3F   	AND #$3F   	; strip off the equipped bit
0x018AB5|$06:$8AA5:85 96   	STA $96    	; temp storage for item/spell/type/etc. IDs
0x018AB7|$06:$8AA7:85 95   	STA $95    	; ID for [item] and [spell] control codes
0x018AB9|$06:$8AA9:20 A3 A3	JSR $A3A3  	; given item ID in $96 and hero ID in $97, set A to #$80 if hero can equip item, #$00 otherwise
0x018ABC|$06:$8AAC:C9 00   	CMP #$00   
0x018ABE|$06:$8AAE:D0 0F   	BNE $8ABF  
0x018AC0|$06:$8AB0:20 CB 9A	JSR $9ACB  	; open dialogue window
0x018AC3|$06:$8AB3:20 25 8D	JSR $8D25  	; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA
; call to code in a different bank ($0F:$FA2E)
0x018AC6|$06:$8AB6:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x018AC9|$06:$8AB9:92	; String ID #$0192: [name] cannot be equipped with the [item].[end-FC]

; data -> code
0x018ACA|$06:$8ABA:C6 49   	DEC $49    	; object hero/target/item/string ID $49
0x018ACC|$06:$8ABC:4C 55 8A	JMP $8A55  

; control flow target (from $8AAE)
0x018ACF|$06:$8ABF:A5 96   	LDA $96    	; temp storage for item/spell/type/etc. IDs
; equip item
0x018AD1|$06:$8AC1:09 40   	ORA #$40   
0x018AD3|$06:$8AC3:9D 00 06	STA $0600,X	; Midenhall inventory item 1 (| #$40 if equipped)
0x018AD6|$06:$8AC6:A0 04   	LDY #$04   	; there are 4 cursed item in the game
; control flow target (from $8ACE)
0x018AD8|$06:$8AC8:D9 1B 86	CMP $861B,Y	; list of cursed items (equipped), built in offset from $861C
0x018ADB|$06:$8ACB:F0 05   	BEQ $8AD2  
0x018ADD|$06:$8ACD:88      	DEY        
0x018ADE|$06:$8ACE:D0 F8   	BNE $8AC8  
0x018AE0|$06:$8AD0:F0 11   	BEQ $8AE3  
; control flow target (from $8ACB)
0x018AE2|$06:$8AD2:29 3F   	AND #$3F   	; strip off the equipped bit
0x018AE4|$06:$8AD4:85 95   	STA $95    	; ID for [item] and [spell] control codes
0x018AE6|$06:$8AD6:20 CB 9A	JSR $9ACB  	; open dialogue window
0x018AE9|$06:$8AD9:20 25 8D	JSR $8D25  	; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA
; call to code in a different bank ($0F:$FA2E)
0x018AEC|$06:$8ADC:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x018AEF|$06:$8ADF:11	; String ID #$0111: [name], too, was cursed.[end-FC]

; data -> code
0x018AF0|$06:$8AE0:4C 4D 8A	JMP $8A4D  

; control flow target (from $8A42, $8A5F, $8A98, $8A9C, $8AD0)
0x018AF3|$06:$8AE3:E6 49   	INC $49    	; object hero/target/item/string ID $49
0x018AF5|$06:$8AE5:A5 49   	LDA $49    	; object hero/target/item/string ID $49
0x018AF7|$06:$8AE7:C9 04   	CMP #$04   	; there are 4 EQUIP item types
0x018AF9|$06:$8AE9:F0 03   	BEQ $8AEE  
0x018AFB|$06:$8AEB:4C 19 8A	JMP $8A19  

; control flow target (from $8AE9)
0x018AFE|$06:$8AEE:A5 A5   	LDA $A5    
0x018B00|$06:$8AF0:D0 0D   	BNE $8AFF  	; wait #$14 interrupts, update each hero's stats based on their current EXP, wipe menu and exit COMMAND menu
0x018B02|$06:$8AF2:20 CB 9A	JSR $9ACB  	; open dialogue window
0x018B05|$06:$8AF5:20 25 8D	JSR $8D25  	; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA
; call to code in a different bank ($0F:$FA2E)
0x018B08|$06:$8AF8:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x018B0B|$06:$8AFB:A0	; String ID #$01A0: [name] has nothing to equip.[end-FC]

; data -> code
0x018B0C|$06:$8AFC:4C 92 80	JMP $8092  	; wait until all joypad buttons are released and then some button pressed then wipe menus and exit COMMAND menu

; wait #$14 interrupts, update each hero's stats based on their current EXP, wipe menu and exit COMMAND menu
; control flow target (from $8A3B, $8AF0)
0x018B0F|$06:$8AFF:A2 14   	LDX #$14   
; call to code in a different bank ($0F:$C1EE)
0x018B11|$06:$8B01:20 EE C1	JSR $C1EE  	; set $6007 = #$00, set $00 = #$01, wait for X interrupts, set $00 = #$FF
; call to code in a different bank ($0F:$D0EC)
0x018B14|$06:$8B04:20 EC D0	JSR $D0EC  	; update each hero's stats based on their current EXP
0x018B17|$06:$8B07:A9 07   	LDA #$07   
; call to code in a different bank ($0F:$CF6A)
0x018B19|$06:$8B09:20 6A CF	JSR $CF6A  	; wipe selected menu region
0x018B1C|$06:$8B0C:4C 6D 80	JMP $806D  	; exit COMMAND menu

; given hero ID in $97 and hero inventory index in X, return corresponding item ID in A and party inventory index in X
; control flow target (from $8528, $8AA0, $989E, $98B9, $991D)
0x018B1F|$06:$8B0F:20 1D 8B	JSR $8B1D  	; set A to hero ID in $97 * 8
0x018B22|$06:$8B12:85 0C   	STA $0C    
0x018B24|$06:$8B14:8A      	TXA        
0x018B25|$06:$8B15:18      	CLC        
0x018B26|$06:$8B16:65 0C   	ADC $0C    
0x018B28|$06:$8B18:AA      	TAX        
0x018B29|$06:$8B19:BD 00 06	LDA $0600,X	; Midenhall inventory item 1 (| #$40 if equipped)
0x018B2C|$06:$8B1C:60      	RTS        

; set A to hero ID in $97 * 8
; control flow target (from $8A72, $8B0F)
0x018B2D|$06:$8B1D:A5 97   	LDA $97    	; subject hero ID $97
0x018B2F|$06:$8B1F:0A      	ASL        
0x018B30|$06:$8B20:0A      	ASL        
0x018B31|$06:$8B21:0A      	ASL        
0x018B32|$06:$8B22:60      	RTS        

; given party inventory index in Y, CLC and return equipped item ID in A if corresponding item is equipped and cursed, SEC and return unequipped item ID in A otherwise
; control flow target (from $852D, $8A89)
0x018B33|$06:$8B23:B9 00 06	LDA $0600,Y	; Midenhall inventory item 1 (| #$40 if equipped)
0x018B36|$06:$8B26:A2 03   	LDX #$03   	; max index of list of cursed items in the game
; control flow target (from $8B2E)
0x018B38|$06:$8B28:DD 1C 86	CMP $861C,X	; list of equipped cursed items
0x018B3B|$06:$8B2B:F0 07   	BEQ $8B34  
0x018B3D|$06:$8B2D:CA      	DEX        
0x018B3E|$06:$8B2E:10 F8   	BPL $8B28  
0x018B40|$06:$8B30:29 3F   	AND #$3F   
0x018B42|$06:$8B32:38      	SEC        
0x018B43|$06:$8B33:60      	RTS        

; control flow target (from $8B2B)
0x018B44|$06:$8B34:18      	CLC        
0x018B45|$06:$8B35:60      	RTS        

; COMMAND menu SPELL command handler
; indirect control flow target (via $8088)
; call to code in a different bank ($0F:$F545)
0x018B46|$06:$8B36:20 45 F5	JSR $F545  	; depending on number of casters in party, maybe open caster select menu
0x018B49|$06:$8B39:C9 FF   	CMP #$FF   
0x018B4B|$06:$8B3B:D0 03   	BNE $8B40  	; did not cancel menu
; exit COMMAND menu
; control flow target (from $8B73)
0x018B4D|$06:$8B3D:4C 6D 80	JMP $806D  	; exit COMMAND menu

; did not cancel menu
; control flow target (from $8B3B)
0x018B50|$06:$8B40:85 97   	STA $97    	; subject hero ID $97; caster hero ID
0x018B52|$06:$8B42:C9 FE   	CMP #$FE   
0x018B54|$06:$8B44:D0 0F   	BNE $8B55  	; hero is a caster
0x018B56|$06:$8B46:20 CB 9A	JSR $9ACB  	; open dialogue window
0x018B59|$06:$8B49:A9 00   	LDA #$00   	; Midenhall
; call to code in a different bank ($0F:$FC50)
0x018B5B|$06:$8B4B:20 50 FC	JSR $FC50  	; print name of hero given by low 2 bits of A to $6119, terminated by #$FA
; call to code in a different bank ($0F:$FA2E)
0x018B5E|$06:$8B4E:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x018B61|$06:$8B51:01	; String ID #$0101: [name] cannot use the spell.[end-FC]

; data -> code
0x018B62|$06:$8B52:4C 92 80	JMP $8092  	; wait until all joypad buttons are released and then some button pressed then wipe menus and exit COMMAND menu

; hero is a caster
; control flow target (from $8B44)
0x018B65|$06:$8B55:A9 80   	LDA #$80   	; Alive
0x018B67|$06:$8B57:20 9A 8D	JSR $8D9A  	; given hero ID in $97, and status in A, SEC if hero has that status, CLC otherwise
0x018B6A|$06:$8B5A:B0 0D   	BCS $8B69  	; caster is alive
0x018B6C|$06:$8B5C:20 CB 9A	JSR $9ACB  	; open dialogue window
0x018B6F|$06:$8B5F:20 25 8D	JSR $8D25  	; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA
; call to code in a different bank ($0F:$FA2E)
0x018B72|$06:$8B62:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x018B75|$06:$8B65:02	; String ID #$0102: Alas, poor [name] is dead.[end-FC]

; data -> code
0x018B76|$06:$8B66:4C 92 80	JMP $8092  	; wait until all joypad buttons are released and then some button pressed then wipe menus and exit COMMAND menu

; caster is alive
; control flow target (from $8B5A)
0x018B79|$06:$8B69:A5 97   	LDA $97    	; subject hero ID $97; caster hero ID
0x018B7B|$06:$8B6B:38      	SEC        
0x018B7C|$06:$8B6C:E9 01   	SBC #$01   	; Midenhall can't use magic and $0F:$F5EC wants hero ID - 1
; call to code in a different bank ($0F:$F5EC)
0x018B7E|$06:$8B6E:20 EC F5	JSR $F5EC  	; given hero ID - 1 in A, open hero's spell list and return selected spell ID in A
0x018B81|$06:$8B71:C9 FF   	CMP #$FF   
0x018B83|$06:$8B73:F0 C8   	BEQ $8B3D  	; exit COMMAND menu
0x018B85|$06:$8B75:85 96   	STA $96    	; temp storage for item/spell/type/etc. IDs; selected spell ID
0x018B87|$06:$8B77:AA      	TAX        
0x018B88|$06:$8B78:20 AA 8D	JSR $8DAA  	; given hero ID in $97, set Y to start of hero's data in $062D,Y, i.e. Y = $97 * #$12
0x018B8B|$06:$8B7B:B9 3D 06	LDA $063D,Y	; Midenhall Current MP
0x018B8E|$06:$8B7E:DD DD 8C	CMP $8CDD,X	; MP costs (built in offset from real data at $8CE6)
0x018B91|$06:$8B81:B0 07   	BCS $8B8A  	; hero has enough MP to cast
; call to code in a different bank ($0F:$F6EA)
0x018B93|$06:$8B83:20 EA F6	JSR $F6EA  	; open main dialogue window and display string ID specified by byte following JSR

; code -> data
; indirect data load target
0x018B96|$06:$8B86:11	; String ID #$0011: Thy MP is low.[end-FC]

; data -> code
0x018B97|$06:$8B87:4C 92 80	JMP $8092  	; wait until all joypad buttons are released and then some button pressed then wipe menus and exit COMMAND menu

; hero has enough MP to cast
; control flow target (from $8B81)
0x018B9A|$06:$8B8A:A0 04   	LDY #$04   	; there are 5 single-target spells on the field
0x018B9C|$06:$8B8C:A5 96   	LDA $96    	; temp storage for item/spell/type/etc. IDs; selected spell ID
; check if spell is a healing spell
; control flow target (from $8B94)
0x018B9E|$06:$8B8E:D9 E1 8C	CMP $8CE1,Y	; single-target spell list, field
0x018BA1|$06:$8B91:F0 05   	BEQ $8B98  	; chose a healing spell
0x018BA3|$06:$8B93:88      	DEY        
0x018BA4|$06:$8B94:10 F8   	BPL $8B8E  	; check if spell is a healing spell
0x018BA6|$06:$8B96:30 0C   	BMI $8BA4  	; cast spell
; chose a healing spell
; control flow target (from $8B91)
; call to code in a different bank ($0F:$F579)
0x018BA8|$06:$8B98:20 79 F5	JSR $F579  	; display appropriate main SPELL target menu
0x018BAB|$06:$8B9B:C9 FF   	CMP #$FF   
0x018BAD|$06:$8B9D:D0 03   	BNE $8BA2  	; update target hero ID
0x018BAF|$06:$8B9F:4C 6D 80	JMP $806D  	; exit COMMAND menu

; update target hero ID
; control flow target (from $8B9D)
0x018BB2|$06:$8BA2:85 49   	STA $49    	; object hero/target/item/string ID $49; target hero ID for single-target spells
; cast spell
; control flow target (from $8B96)
0x018BB4|$06:$8BA4:20 AA 8D	JSR $8DAA  	; given hero ID in $97, set Y to start of hero's data in $062D,Y, i.e. Y = $97 * #$12
0x018BB7|$06:$8BA7:A6 96   	LDX $96    	; temp storage for item/spell/type/etc. IDs; selected spell ID
0x018BB9|$06:$8BA9:B9 3D 06	LDA $063D,Y	; Midenhall Current MP
0x018BBC|$06:$8BAC:38      	SEC        
0x018BBD|$06:$8BAD:FD DD 8C	SBC $8CDD,X	; MP costs (built in offset from real data at $8CE6)
0x018BC0|$06:$8BB0:99 3D 06	STA $063D,Y	; Midenhall Current MP
0x018BC3|$06:$8BB3:20 CB 9A	JSR $9ACB  	; open dialogue window
0x018BC6|$06:$8BB6:20 25 8D	JSR $8D25  	; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA
0x018BC9|$06:$8BB9:A5 96   	LDA $96    	; temp storage for item/spell/type/etc. IDs; selected spell ID
0x018BCB|$06:$8BBB:85 95   	STA $95    	; ID for [item] and [spell] control codes
; call to code in a different bank ($0F:$FA2A)
0x018BCD|$06:$8BBD:20 2A FA	JSR $FA2A  	; display string ID specified by next byte

; code -> data
; indirect data load target
0x018BD0|$06:$8BC0:1A	; String ID #$001A: [name] chanted the spell of [spell].[end-FC]

; data -> code
0x018BD1|$06:$8BC1:A9 90   	LDA #$90   	; Music ID #$90: casting SFX
; call to code in a different bank ($0F:$C561)
0x018BD3|$06:$8BC3:20 61 C5	JSR $C561  	; play PCM specified by A (>= #$80 = sound effect [SFX], < #$80 = background music [BGM])
; call to code in a different bank ($0F:$C515)
0x018BD6|$06:$8BC6:20 15 C5	JSR $C515  	; flash screen 10 times
0x018BD9|$06:$8BC9:A5 96   	LDA $96    	; temp storage for item/spell/type/etc. IDs; selected spell ID
0x018BDB|$06:$8BCB:C9 09   	CMP #$09   	; Spell ID #$09: Heal
0x018BDD|$06:$8BCD:D0 04   	BNE $8BD3  	; spell ID is not #$09
0x018BDF|$06:$8BCF:A2 40   	LDX #$40   	; power on field for Heal
0x018BE1|$06:$8BD1:D0 0E   	BNE $8BE1  
; spell ID is not #$09
; control flow target (from $8BCD)
0x018BE3|$06:$8BD3:C9 0B   	CMP #$0B   	; Spell ID #$0B: Healmore
0x018BE5|$06:$8BD5:D0 04   	BNE $8BDB  	; spell ID is not #$09 or #$0B
0x018BE7|$06:$8BD7:A2 64   	LDX #$64   	; power on field for Healmore
0x018BE9|$06:$8BD9:D0 06   	BNE $8BE1  
; spell ID is not #$09 or #$0B
; control flow target (from $8BD5)
0x018BEB|$06:$8BDB:C9 0D   	CMP #$0D   	; Spell ID #$0D: Healall
0x018BED|$06:$8BDD:D0 24   	BNE $8C03  	; spell ID is not #$09, #$0B, or #$0D
0x018BEF|$06:$8BDF:A2 FF   	LDX #$FF   	; power on field for Healall
; control flow target (from $8BD1, $8BD9)
0x018BF1|$06:$8BE1:A5 49   	LDA $49    	; object hero/target/item/string ID $49; target hero ID for single-target spells
0x018BF3|$06:$8BE3:20 AC 8D	JSR $8DAC  	; given hero ID in A, set Y to start of hero's data in $062D,Y, i.e. Y = A * #$12
0x018BF6|$06:$8BE6:B9 2D 06	LDA $062D,Y	; Midenhall status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence)
0x018BF9|$06:$8BE9:10 51   	BPL $8C3C  	; spell ineffective; can't heal dead people :(
0x018BFB|$06:$8BEB:A5 49   	LDA $49    	; object hero/target/item/string ID $49; target hero ID for single-target spells
; call to code in a different bank ($0F:$D146)
0x018BFD|$06:$8BED:20 46 D1	JSR $D146  	; heal hero ID in A by random amount based on healing power in X
; call to code in a different bank ($0F:$C22C)
0x018C00|$06:$8BF0:20 2C C2	JSR $C22C  
0x018C03|$06:$8BF3:A5 49   	LDA $49    	; object hero/target/item/string ID $49; target hero ID for single-target spells
; call to code in a different bank ($0F:$FC50)
0x018C05|$06:$8BF5:20 50 FC	JSR $FC50  	; print name of hero given by low 2 bits of A to $6119, terminated by #$FA
; call to code in a different bank ($0F:$FA2A)
0x018C08|$06:$8BF8:20 2A FA	JSR $FA2A  	; display string ID specified by next byte

; code -> data
; indirect data load target
0x018C0B|$06:$8BFB:17	; String ID #$0017: [name]'s wounds were healed.[end-FC]

; data -> code
; call to code in a different bank ($0F:$EB76)
0x018C0C|$06:$8BFC:20 76 EB	JSR $EB76  	; open menu specified by next byte

; code -> data
; indirect data load target
0x018C0F|$06:$8BFF:01	; Menu ID #$01: Mini status window, top, Midenhall only

; data -> code
0x018C10|$06:$8C00:4C 92 80	JMP $8092  	; wait until all joypad buttons are released and then some button pressed then wipe menus and exit COMMAND menu

; spell ID is not #$09, #$0B, or #$0D
; control flow target (from $8BDD)
0x018C13|$06:$8C03:C9 10   	CMP #$10   	; Spell ID #$10: Antidote
0x018C15|$06:$8C05:D0 29   	BNE $8C30  	; spell ID is not #$09, #$0B, #$0D, or #$10
0x018C17|$06:$8C07:A5 49   	LDA $49    	; object hero/target/item/string ID $49; target hero ID for single-target spells
0x018C19|$06:$8C09:20 AC 8D	JSR $8DAC  	; given hero ID in A, set Y to start of hero's data in $062D,Y, i.e. Y = A * #$12
0x018C1C|$06:$8C0C:B9 2D 06	LDA $062D,Y	; Midenhall status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence)
0x018C1F|$06:$8C0F:29 20   	AND #$20   	; pick out the poison bit from hero status byte
0x018C21|$06:$8C11:F0 29   	BEQ $8C3C  	; spell ineffective
0x018C23|$06:$8C13:A5 49   	LDA $49    	; object hero/target/item/string ID $49; target hero ID for single-target spells
; call to code in a different bank ($0F:$FC50)
0x018C25|$06:$8C15:20 50 FC	JSR $FC50  	; print name of hero given by low 2 bits of A to $6119, terminated by #$FA
; call to code in a different bank ($0F:$FA2A)
0x018C28|$06:$8C18:20 2A FA	JSR $FA2A  	; display string ID specified by next byte

; code -> data
; indirect data load target
0x018C2B|$06:$8C1B:43	; String ID #$0043: The poison was drawn out of [name]'s wound.[end-FC]

; data -> code
0x018C2C|$06:$8C1C:A5 49   	LDA $49    	; object hero/target/item/string ID $49; target hero ID for single-target spells
0x018C2E|$06:$8C1E:20 AC 8D	JSR $8DAC  	; given hero ID in A, set Y to start of hero's data in $062D,Y, i.e. Y = A * #$12
0x018C31|$06:$8C21:B9 2D 06	LDA $062D,Y	; Midenhall status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence)
0x018C34|$06:$8C24:29 DF   	AND #$DF   	; set poison bit to 0
0x018C36|$06:$8C26:99 2D 06	STA $062D,Y	; Midenhall status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence)
; call to code in a different bank ($0F:$EB76)
0x018C39|$06:$8C29:20 76 EB	JSR $EB76  	; open menu specified by next byte

; code -> data
; indirect data load target
0x018C3C|$06:$8C2C:01	; Menu ID #$01: Mini status window, top

; data -> code
; control flow target (from $8C4B)
0x018C3D|$06:$8C2D:4C 92 80	JMP $8092  	; wait until all joypad buttons are released and then some button pressed then wipe menus and exit COMMAND menu

; spell ID is not #$09, #$0B, #$0D, or #$10
; control flow target (from $8C05)
0x018C40|$06:$8C30:C9 12   	CMP #$12   	; Spell ID #$12: Outside
0x018C42|$06:$8C32:D0 0F   	BNE $8C43  	; spell ID is not #$09, #$0B, #$0D, #$10, or #$12
0x018C44|$06:$8C34:20 D4 8C	JSR $8CD4  	; handler for Outside spell effect
0x018C47|$06:$8C37:A9 00   	LDA #$00   
; call to code in a different bank ($0F:$D88F)
0x018C49|$06:$8C39:4C 8F D8	JMP $D88F  	; warp to warp point given by ($0C)

; spell ineffective
; control flow target (from $8BE9, $8C11, $8C56, $8CAB, $8CDE)
; call to code in a different bank ($0F:$FA2E)
0x018C4C|$06:$8C3C:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x018C4F|$06:$8C3F:9E	; String ID #$019E: But nothing happened.[end-FC]

; data -> code
0x018C50|$06:$8C40:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; spell ID is not #$09, #$0B, #$0D, #$10, or #$12
; control flow target (from $8C32)
0x018C53|$06:$8C43:C9 13   	CMP #$13   	; Spell ID #$13: Repel
0x018C55|$06:$8C45:D0 06   	BNE $8C4D  	; spell ID is not #$09, #$0B, #$0D, #$10, or #$12-#$13
0x018C57|$06:$8C47:A9 FE   	LDA #$FE   
0x018C59|$06:$8C49:85 46   	STA $46    	; Repel (#$FE) / Fairy Water (#$FF) flag
0x018C5B|$06:$8C4B:D0 E0   	BNE $8C2D  
; spell ID is not #$09, #$0B, #$0D, #$10, or #$12-#$13
; control flow target (from $8C45)
0x018C5D|$06:$8C4D:C9 14   	CMP #$14   	; Spell ID #$14: Return
0x018C5F|$06:$8C4F:D0 11   	BNE $8C62  	; spell ID is not #$09, #$0B, #$0D, #$10, or #$12-#$14
; handler for Return spell effect
; control flow target (from $9661)
0x018C61|$06:$8C51:A2 02   	LDX #$02   
; call to code in a different bank ($0F:$D2E7)
0x018C63|$06:$8C53:20 E7 D2	JSR $D2E7  	; X = 1 => CLC and update $0C-$0D to warp point data to use if Outside allowed from current map, SEC otherwise, X = 2 => CLC and update $0C-$0D to warp point data to use if Return allowed from current map, SEC otherwise, X = 3 => disembark from ship and update ship position based on last save point ID $48
0x018C66|$06:$8C56:B0 E4   	BCS $8C3C  	; spell ineffective
0x018C68|$06:$8C58:A9 95   	LDA #$95   	; Music ID #$95: Return SFX
; call to code in a different bank ($0F:$C561)
0x018C6A|$06:$8C5A:20 61 C5	JSR $C561  	; play PCM specified by A (>= #$80 = sound effect [SFX], < #$80 = background music [BGM])
0x018C6D|$06:$8C5D:A9 00   	LDA #$00   
; call to code in a different bank ($0F:$D88F)
0x018C6F|$06:$8C5F:4C 8F D8	JMP $D88F  	; warp to warp point given by ($0C)

; spell ID is not #$09, #$0B, #$0D, #$10, or #$12-#$14
; control flow target (from $8C4F)
0x018C72|$06:$8C62:C9 15   	CMP #$15   	; Spell ID #$15: Open
0x018C74|$06:$8C64:D0 2E   	BNE $8C94  	; spell ID is not #$09, #$0B, #$0D, #$10, or #$12-#$15
0x018C76|$06:$8C66:A9 00   	LDA #$00   
0x018C78|$06:$8C68:85 C9   	STA $C9    
; call to code in a different bank ($0F:$CF7C)
0x018C7A|$06:$8C6A:20 7C CF	JSR $CF7C  
0x018C7D|$06:$8C6D:A5 49   	LDA $49    	; object hero/target/item/string ID $49; target hero ID for single-target spells
0x018C7F|$06:$8C6F:C9 FF   	CMP #$FF   
0x018C81|$06:$8C71:F0 1E   	BEQ $8C91  
0x018C83|$06:$8C73:A9 01   	LDA #$01   
0x018C85|$06:$8C75:85 C9   	STA $C9    
; call to code in a different bank ($0F:$CF7C)
0x018C87|$06:$8C77:20 7C CF	JSR $CF7C  
0x018C8A|$06:$8C7A:A5 49   	LDA $49    	; object hero/target/item/string ID $49; target hero ID for single-target spells
0x018C8C|$06:$8C7C:C9 FF   	CMP #$FF   
0x018C8E|$06:$8C7E:F0 11   	BEQ $8C91  
0x018C90|$06:$8C80:A9 02   	LDA #$02   
0x018C92|$06:$8C82:85 C9   	STA $C9    
; call to code in a different bank ($0F:$CF7C)
0x018C94|$06:$8C84:20 7C CF	JSR $CF7C  
0x018C97|$06:$8C87:A5 49   	LDA $49    	; object hero/target/item/string ID $49; target hero ID for single-target spells
0x018C99|$06:$8C89:C9 FF   	CMP #$FF   
0x018C9B|$06:$8C8B:F0 04   	BEQ $8C91  
; call to code in a different bank ($0F:$FA2E)
0x018C9D|$06:$8C8D:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x018CA0|$06:$8C90:3B	; String ID #$013B: There is no door here.[end-FC]

; data -> code
; control flow target (from $8C71, $8C7E, $8C8B)
0x018CA1|$06:$8C91:4C 92 80	JMP $8092  	; wait until all joypad buttons are released and then some button pressed then wipe menus and exit COMMAND menu

; spell ID is not #$09, #$0B, #$0D, #$10, or #$12-#$15
; control flow target (from $8C64)
0x018CA4|$06:$8C94:C9 16   	CMP #$16   	; Spell ID #$16: Stepguard
0x018CA6|$06:$8C96:D0 07   	BNE $8C9F  	; spell ID is not #$09, #$0B, #$0D, #$10, or #$12-#$16; ergo it's Spell ID #$17: Revive
0x018CA8|$06:$8C98:A9 FF   	LDA #$FF   
0x018CAA|$06:$8C9A:85 47   	STA $47    	; Stepguard flag
0x018CAC|$06:$8C9C:4C 92 80	JMP $8092  	; wait until all joypad buttons are released and then some button pressed then wipe menus and exit COMMAND menu

; spell ID is not #$09, #$0B, #$0D, #$10, or #$12-#$16; ergo it's Spell ID #$17: Revive
; control flow target (from $8C96, $964B)
0x018CAF|$06:$8C9F:A5 49   	LDA $49    	; object hero/target/item/string ID $49; target hero ID for single-target spells
0x018CB1|$06:$8CA1:20 AC 8D	JSR $8DAC  	; given hero ID in A, set Y to start of hero's data in $062D,Y, i.e. Y = A * #$12
0x018CB4|$06:$8CA4:B9 2D 06	LDA $062D,Y	; Midenhall status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence)
0x018CB7|$06:$8CA7:29 80   	AND #$80   	; Alive
0x018CB9|$06:$8CA9:F0 03   	BEQ $8CAE  
0x018CBB|$06:$8CAB:4C 3C 8C	JMP $8C3C  	; spell ineffective

; control flow target (from $8CA9)
0x018CBE|$06:$8CAE:A5 49   	LDA $49    	; object hero/target/item/string ID $49; target hero ID for single-target spells
0x018CC0|$06:$8CB0:85 97   	STA $97    	; subject hero ID $97
0x018CC2|$06:$8CB2:20 AC 8D	JSR $8DAC  	; given hero ID in A, set Y to start of hero's data in $062D,Y, i.e. Y = A * #$12
0x018CC5|$06:$8CB5:B9 2D 06	LDA $062D,Y	; Midenhall status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence)
0x018CC8|$06:$8CB8:09 80   	ORA #$80   	; Alive
0x018CCA|$06:$8CBA:99 2D 06	STA $062D,Y	; Midenhall status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence)
0x018CCD|$06:$8CBD:A9 01   	LDA #$01   	; revive with 1 HP
0x018CCF|$06:$8CBF:99 3B 06	STA $063B,Y	; Midenhall Current HP, low byte
; call to code in a different bank ($0F:$D302)
0x018CD2|$06:$8CC2:20 02 D3	JSR $D302  
; call to code in a different bank ($0F:$C22C)
0x018CD5|$06:$8CC5:20 2C C2	JSR $C22C  
0x018CD8|$06:$8CC8:A5 49   	LDA $49    	; object hero/target/item/string ID $49; target hero ID for single-target spells
; call to code in a different bank ($0F:$FC50)
0x018CDA|$06:$8CCA:20 50 FC	JSR $FC50  	; print name of hero given by low 2 bits of A to $6119, terminated by #$FA
; call to code in a different bank ($0F:$FA2A)
0x018CDD|$06:$8CCD:20 2A FA	JSR $FA2A  	; display string ID specified by next byte

; code -> data
; indirect data load target
0x018CE0|$06:$8CD0:44	; String ID #$0044: [name] returned to life.[end-FC]

; data -> code
0x018CE1|$06:$8CD1:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; handler for Outside spell effect
; control flow target (from $8C34)
; external control flow target (from $0F:$D597, $0F:$D59D)
0x018CE4|$06:$8CD4:A2 01   	LDX #$01   
; call to code in a different bank ($0F:$D2E7)
0x018CE6|$06:$8CD6:20 E7 D2	JSR $D2E7  	; X = 1 => CLC and update $0C-$0D to warp point data to use if Outside allowed from current map, SEC otherwise, X = 2 => CLC and update $0C-$0D to warp point data to use if Return allowed from current map, SEC otherwise, X = 3 => disembark from ship and update ship position based on last save point ID $48
0x018CE9|$06:$8CD9:B0 01   	BCS $8CDC  
0x018CEB|$06:$8CDB:60      	RTS        

; control flow target (from $8CD9)
0x018CEC|$06:$8CDC:68      	PLA        
; MP costs (built in offset from real data at $8CE6)
; indexed data load target (from $8B7E, $8BAD)
0x018CED|$06:$8CDD:68      	PLA        
0x018CEE|$06:$8CDE:4C 3C 8C	JMP $8C3C  	; spell ineffective


; code -> data
; single-target spell list, field
; indexed data load target (from $8B8E)
0x018CF1|$06:$8CE1:09	; Spell ID #$09: Heal
0x018CF2|$06:$8CE2:0B	; Spell ID #$0B: Healmore
0x018CF3|$06:$8CE3:0D	; Spell ID #$0D: Healall
0x018CF4|$06:$8CE4:10	; Spell ID #$10: Antidote
0x018CF5|$06:$8CE5:17	; Spell ID #$17: Revive

; MP Cost for Spells on Field (referenced as $8CDD,X)
0x018CF6|$06:$8CE6:03	; Spell ID #$09: Heal
0x018CF7|$06:$8CE7:00	; Spell ID #$0A: Increase
0x018CF8|$06:$8CE8:05	; Spell ID #$0B: Healmore
0x018CF9|$06:$8CE9:00	; Spell ID #$0C: Sacrifice
0x018CFA|$06:$8CEA:08	; Spell ID #$0D: Healall
0x018CFB|$06:$8CEB:00	; Spell ID #$0E: Explodet
0x018CFC|$06:$8CEC:00	; Spell ID #$0F: Chance
0x018CFD|$06:$8CED:03	; Spell ID #$10: Antidote
0x018CFE|$06:$8CEE:02	; Spell ID #$11: Heal (not used by heroes)
0x018CFF|$06:$8CEF:06	; Spell ID #$12: Outside
0x018D00|$06:$8CF0:02	; Spell ID #$13: Repel
0x018D01|$06:$8CF1:06	; Spell ID #$14: Return
0x018D02|$06:$8CF2:02	; Spell ID #$15: Open
0x018D03|$06:$8CF3:04	; Spell ID #$16: Stepguard
0x018D04|$06:$8CF4:0F	; Spell ID #$17: Revive

; data -> code
; add $8F-$90 to party gold, capped at $FFFF
; control flow target (from $8536, $9C58)
0x018D05|$06:$8CF5:A5 8F   	LDA $8F    
0x018D07|$06:$8CF7:18      	CLC        
0x018D08|$06:$8CF8:6D 24 06	ADC $0624  	; party gold, low byte
0x018D0B|$06:$8CFB:8D 24 06	STA $0624  	; party gold, low byte
0x018D0E|$06:$8CFE:A5 90   	LDA $90    
0x018D10|$06:$8D00:6D 25 06	ADC $0625  	; party gold, high byte
0x018D13|$06:$8D03:8D 25 06	STA $0625  	; party gold, high byte
0x018D16|$06:$8D06:90 08   	BCC $8D10  	; cap party gold at 65,535
0x018D18|$06:$8D08:A9 FF   	LDA #$FF   
0x018D1A|$06:$8D0A:8D 24 06	STA $0624  	; party gold, low byte
0x018D1D|$06:$8D0D:8D 25 06	STA $0625  	; party gold, high byte
; control flow target (from $8D06)
0x018D20|$06:$8D10:60      	RTS        

; given item ID in $96 and discount amount in $8F-$90, set $8F-$90 to discounted item price
; control flow target (from $8355, $8462)
0x018D21|$06:$8D11:A5 96   	LDA $96    	; temp storage for item/spell/type/etc. IDs; item ID
0x018D23|$06:$8D13:0A      	ASL        	; item prices are 2 bytes each
0x018D24|$06:$8D14:A8      	TAY        
0x018D25|$06:$8D15:B9 FC 9F	LDA $9FFC,Y	; Item Prices, low byte
0x018D28|$06:$8D18:38      	SEC        
0x018D29|$06:$8D19:E5 8F   	SBC $8F    
0x018D2B|$06:$8D1B:85 8F   	STA $8F    
0x018D2D|$06:$8D1D:B9 FD 9F	LDA $9FFD,Y	; Item Prices, high byte
0x018D30|$06:$8D20:E5 90   	SBC $90    
0x018D32|$06:$8D22:85 90   	STA $90    
0x018D34|$06:$8D24:60      	RTS        

; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA
; control flow target (from $8324, $833E, $8379, $83FC, $8438, $84AD, $8599, $85F0, $863E, $8691, $8AB3, $8AD9, $8AF5, $8B5F, $8BB6, $8F26, $904A, $9125, $9476, $959D, $95C0, $963A, $9652, $96D4, $9830, $99B7, $99E5, $99F2, $9A0D, $9A26, $9A31, $9A55, $9A5F, $9A6F, $9A7A, $9A9F, $9AAC, $9AF1, $9B1E, $9D2D, $9D3C)
0x018D35|$06:$8D25:A5 97   	LDA $97    	; subject hero ID $97
; call to code in a different bank ($0F:$FC50)
0x018D37|$06:$8D27:4C 50 FC	JMP $FC50  	; print name of hero given by low 2 bits of A to $6119, terminated by #$FA

; set $8F-$90 to A-#$00
; control flow target (from $9C75)
0x018D3A|$06:$8D2A:85 8F   	STA $8F    
0x018D3C|$06:$8D2C:A9 00   	LDA #$00   
0x018D3E|$06:$8D2E:85 90   	STA $90    
0x018D40|$06:$8D30:60      	RTS        

; given gold amount in $8F-$90, decrease party gold by that amount and SEC if possible, CLC otherwise
; control flow target (from $823D, $8688, $8D7B, $9130)
0x018D41|$06:$8D31:AD 24 06	LDA $0624  	; party gold, low byte
0x018D44|$06:$8D34:38      	SEC        
0x018D45|$06:$8D35:E5 8F   	SBC $8F    	; amount to subtract, low byte
0x018D47|$06:$8D37:85 0C   	STA $0C    
0x018D49|$06:$8D39:AD 25 06	LDA $0625  	; party gold, high byte
0x018D4C|$06:$8D3C:E5 90   	SBC $90    	; amount to subtract, high byte
0x018D4E|$06:$8D3E:85 0D   	STA $0D    
0x018D50|$06:$8D40:90 0A   	BCC $8D4C  	; C clear => not enough gold, so just RTS
0x018D52|$06:$8D42:A5 0C   	LDA $0C    	; otherwise, C is set; update party gold with new total
0x018D54|$06:$8D44:8D 24 06	STA $0624  	; party gold, low byte
0x018D57|$06:$8D47:A5 0D   	LDA $0D    
0x018D59|$06:$8D49:8D 25 06	STA $0625  	; party gold, high byte
; control flow target (from $8D40)
0x018D5C|$06:$8D4C:60      	RTS        

; given item ID in A, save it to $96 and set $8F-$90 to purchase price of item, accounting for possible Golden Card discount; decrease party gold by that amount and SEC if possible, CLC otherwise
; control flow target (from $82E5, $83E2)
0x018D5D|$06:$8D4D:85 96   	STA $96    	; temp storage for item/spell/type/etc. IDs; item ID
0x018D5F|$06:$8D4F:0A      	ASL        	; price list is 2 bytes wide
0x018D60|$06:$8D50:A8      	TAY        
0x018D61|$06:$8D51:B9 FC 9F	LDA $9FFC,Y	; Item Prices, low byte
0x018D64|$06:$8D54:85 8F   	STA $8F    
0x018D66|$06:$8D56:B9 FD 9F	LDA $9FFD,Y	; Item Prices, high byte
0x018D69|$06:$8D59:85 90   	STA $90    
0x018D6B|$06:$8D5B:A9 32   	LDA #$32   	; Item ID #$32: Golden Card
0x018D6D|$06:$8D5D:20 69 A3	JSR $A369  	; check for item A in party inventory, returning inventory index of item in A/X if found, #$FF if not
0x018D70|$06:$8D60:C9 FF   	CMP #$FF   
0x018D72|$06:$8D62:F0 17   	BEQ $8D7B  	; branch if no Golden Card, otherwise extra string and altered price
0x018D74|$06:$8D64:46 90   	LSR $90    	; 16-bit LSR
0x018D76|$06:$8D66:66 8F   	ROR $8F    
0x018D78|$06:$8D68:46 90   	LSR $90    	; 16-bit LSR
0x018D7A|$06:$8D6A:66 8F   	ROR $8F    
0x018D7C|$06:$8D6C:B9 FC 9F	LDA $9FFC,Y	; Item Prices, low byte
0x018D7F|$06:$8D6F:38      	SEC        
0x018D80|$06:$8D70:E5 8F   	SBC $8F    
0x018D82|$06:$8D72:85 8F   	STA $8F    
0x018D84|$06:$8D74:B9 FD 9F	LDA $9FFD,Y	; Item Prices, high byte
0x018D87|$06:$8D77:E5 90   	SBC $90    
0x018D89|$06:$8D79:85 90   	STA $90    	; 25% discount
; control flow target (from $8D62)
0x018D8B|$06:$8D7B:4C 31 8D	JMP $8D31  	; given gold amount in $8F-$90, decrease party gold by that amount and SEC if possible, CLC otherwise

; given hero ID in $97 and item ID in $96, try to add item to first empty slot in hero's inventory; SEC if added, CLC if no empty slots
; control flow target (from $836F, $83F7, $8433, $8479, $872E, $92A9, $9313, $9A07, $9C70, $9C8B, $A2D2, $A2D9, $A2E0)
0x018D8E|$06:$8D7E:A5 97   	LDA $97    	; subject hero ID $97; hero ID
0x018D90|$06:$8D80:0A      	ASL        	; 8 inventory slots per hero
0x018D91|$06:$8D81:0A      	ASL        
0x018D92|$06:$8D82:0A      	ASL        
0x018D93|$06:$8D83:A8      	TAY        
0x018D94|$06:$8D84:A2 00   	LDX #$00   	; loop counter
; control flow target (from $8D8F)
0x018D96|$06:$8D86:B9 00 06	LDA $0600,Y	; Midenhall inventory item 1 (| #$40 if equipped)
0x018D99|$06:$8D89:F0 08   	BEQ $8D93  	; if empty slot, go add item
0x018D9B|$06:$8D8B:C8      	INY        	; else, increment inventory index and loop counter
0x018D9C|$06:$8D8C:E8      	INX        
0x018D9D|$06:$8D8D:E0 08   	CPX #$08   	; 8 inventory slots per hero
0x018D9F|$06:$8D8F:D0 F5   	BNE $8D86  	; if more inventory slots to check, loop to check them
0x018DA1|$06:$8D91:18      	CLC        	; at this point, we know hero's inventory is already full, so flag failure for calling code
0x018DA2|$06:$8D92:60      	RTS        

; control flow target (from $8D89)
0x018DA3|$06:$8D93:A5 96   	LDA $96    	; temp storage for item/spell/type/etc. IDs; item ID
0x018DA5|$06:$8D95:99 00 06	STA $0600,Y	; Midenhall inventory item 1 (| #$40 if equipped); add to hero's inventory
0x018DA8|$06:$8D98:38      	SEC        	; flag success for calling code
0x018DA9|$06:$8D99:60      	RTS        

; given hero ID in $97, and status in A, SEC if hero has that status, CLC otherwise
; control flow target (from $8339, $8594, $8639, $8B57, $9045, $9453, $946C, $9499, $94A3, $9595, $95EA, $9608, $99E0, $9A21, $9A36, $9A50, $9A9A, $9ADB, $9D25)
0x018DAA|$06:$8D9A:85 0C   	STA $0C    
0x018DAC|$06:$8D9C:20 AA 8D	JSR $8DAA  	; given hero ID in $97, set Y to start of hero's data in $062D,Y, i.e. Y = $97 * #$12
0x018DAF|$06:$8D9F:B9 2D 06	LDA $062D,Y	; Midenhall status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence)
0x018DB2|$06:$8DA2:25 0C   	AND $0C    
0x018DB4|$06:$8DA4:F0 02   	BEQ $8DA8  
0x018DB6|$06:$8DA6:38      	SEC        
0x018DB7|$06:$8DA7:60      	RTS        

; control flow target (from $8DA4)
0x018DB8|$06:$8DA8:18      	CLC        
0x018DB9|$06:$8DA9:60      	RTS        

; given hero ID in $97, set Y to start of hero's data in $062D,Y, i.e. Y = $97 * #$12
; control flow target (from $85B2, $8659, $86A6, $8B78, $8BA4, $8D9C)
0x018DBA|$06:$8DAA:A5 97   	LDA $97    	; subject hero ID $97
; given hero ID in A, set Y to start of hero's data in $062D,Y, i.e. Y = A * #$12
; control flow target (from $8BE3, $8C09, $8C1E, $8CA1, $8CB2, $960F)
0x018DBC|$06:$8DAC:F0 0A   	BEQ $8DB8  	; if it's Midenhall, use + #$00
0x018DBE|$06:$8DAE:C9 01   	CMP #$01   	; is it Cannock?
0x018DC0|$06:$8DB0:D0 04   	BNE $8DB6  	; if no, keep checking
0x018DC2|$06:$8DB2:A9 12   	LDA #$12   	; if yes, use + #$12
0x018DC4|$06:$8DB4:D0 02   	BNE $8DB8  	; and skip over Moonbrooke
; control flow target (from $8DB0)
0x018DC6|$06:$8DB6:A9 24   	LDA #$24   	; it's Moonbrooke, so use + #$24
; control flow target (from $8DAC, $8DB4)
0x018DC8|$06:$8DB8:A8      	TAY        
0x018DC9|$06:$8DB9:60      	RTS        

; given a hero ID in $97 and an item ID in A, SEC if hero has that item, CLC otherwise
; control flow target (from $85E7, $9897, $98B2, $9916)
0x018DCA|$06:$8DBA:48      	PHA        
0x018DCB|$06:$8DBB:A5 97   	LDA $97    	; subject hero ID $97
0x018DCD|$06:$8DBD:85 9C   	STA $9C    
0x018DCF|$06:$8DBF:68      	PLA        
; call to code in a different bank ($0F:$C4B0)
0x018DD0|$06:$8DC0:4C B0 C4	JMP $C4B0  	; given a hero ID in $9C and an item ID in A, SEC if hero has that item, CLC otherwise

; given a hero ID in $97 and an item ID in A, remove that item from hero's inventory if present and SEC, CLC otherwise
; control flow target (from $8612, $8716)
0x018DD3|$06:$8DC3:48      	PHA        
0x018DD4|$06:$8DC4:A5 97   	LDA $97    	; subject hero ID $97
0x018DD6|$06:$8DC6:85 9C   	STA $9C    
0x018DD8|$06:$8DC8:68      	PLA        
; call to code in a different bank ($0F:$C4B6)
0x018DD9|$06:$8DC9:4C B6 C4	JMP $C4B6  	; given a hero ID in $9C and an item ID in A, remove that item from hero's inventory if present and SEC, CLC otherwise

; restore full HP to all living party members
; control flow target (from $825B, $951C)
; external control flow target (from $0F:$C789, $0F:$D289)
0x018DDC|$06:$8DCC:A0 00   	LDY #$00   
; control flow target (from $8DE9)
0x018DDE|$06:$8DCE:B9 3B 06	LDA $063B,Y	; Midenhall Current HP, low byte
0x018DE1|$06:$8DD1:19 3C 06	ORA $063C,Y	; Midenhall Current HP, high byte
0x018DE4|$06:$8DD4:F0 0C   	BEQ $8DE2  	; branch if current HP is #$00
0x018DE6|$06:$8DD6:B9 30 06	LDA $0630,Y	; Midenhall Max HP low byte
0x018DE9|$06:$8DD9:99 3B 06	STA $063B,Y	; Midenhall Current HP, low byte
0x018DEC|$06:$8DDC:B9 31 06	LDA $0631,Y	; Midenhall Max HP high byte
0x018DEF|$06:$8DDF:99 3C 06	STA $063C,Y	; Midenhall Current HP, high byte
; control flow target (from $8DD4)
0x018DF2|$06:$8DE2:98      	TYA        
0x018DF3|$06:$8DE3:18      	CLC        
0x018DF4|$06:$8DE4:69 12   	ADC #$12   	; hero data is #$12 bytes each
0x018DF6|$06:$8DE6:A8      	TAY        
0x018DF7|$06:$8DE7:C9 36   	CMP #$36   	; and there are 3 heroes
0x018DF9|$06:$8DE9:D0 E3   	BNE $8DCE  	; if more heroes to heal, heal them
0x018DFB|$06:$8DEB:60      	RTS        

; restore full MP to all living party members
; control flow target (from $825E, $9175)
; external control flow target (from $0F:$C78C)
0x018DFC|$06:$8DEC:A0 00   	LDY #$00   	; start with Midenhall
; control flow target (from $8E03)
0x018DFE|$06:$8DEE:B9 3B 06	LDA $063B,Y	; Midenhall Current HP, low byte
0x018E01|$06:$8DF1:19 3C 06	ORA $063C,Y	; Midenhall Current HP, high byte
0x018E04|$06:$8DF4:F0 06   	BEQ $8DFC  	; zero HP => dead, right?
0x018E06|$06:$8DF6:B9 32 06	LDA $0632,Y	; Midenhall Max MP
0x018E09|$06:$8DF9:99 3D 06	STA $063D,Y	; Midenhall Current MP
; control flow target (from $8DF4)
0x018E0C|$06:$8DFC:98      	TYA        
0x018E0D|$06:$8DFD:18      	CLC        
0x018E0E|$06:$8DFE:69 12   	ADC #$12   	; hero data is #$12 bytes wide
0x018E10|$06:$8E00:A8      	TAY        
0x018E11|$06:$8E01:C9 36   	CMP #$36   	; max of 3 heroes at #$12 each => stop at #$36
0x018E13|$06:$8E03:D0 E9   	BNE $8DEE  	; if more heroes to check, check them
0x018E15|$06:$8E05:60      	RTS        

; handler for dialogue IDs #$29-#$94 (open dialogue window and display string specified by A + #$1D7, i.e. String IDs #$0200-#$026B)
; control flow target (from $81F0)
0x018E16|$06:$8E06:38      	SEC        
0x018E17|$06:$8E07:E9 29   	SBC #$29   
0x018E19|$06:$8E09:85 49   	STA $49    	; object hero/target/item/string ID $49
0x018E1B|$06:$8E0B:48      	PHA        	; string ID
0x018E1C|$06:$8E0C:20 CB 9A	JSR $9ACB  	; open dialogue window
0x018E1F|$06:$8E0F:A9 00   	LDA #$00   
; call to code in a different bank ($0F:$FC50)
0x018E21|$06:$8E11:20 50 FC	JSR $FC50  	; print name of hero given by low 2 bits of A to $6119, terminated by #$FA
0x018E24|$06:$8E14:68      	PLA        	; string ID
0x018E25|$06:$8E15:C9 64   	CMP #$64   	; either this or the above call to $FC50 are useless
0x018E27|$06:$8E17:90 17   	BCC $8E30  
0x018E29|$06:$8E19:48      	PHA        	; string ID
0x018E2A|$06:$8E1A:C9 6A   	CMP #$6A   
0x018E2C|$06:$8E1C:B0 04   	BCS $8E22  
0x018E2E|$06:$8E1E:A9 00   	LDA #$00   	; Midenhall
0x018E30|$06:$8E20:F0 0A   	BEQ $8E2C  
; control flow target (from $8E1C)
0x018E32|$06:$8E22:C9 6A   	CMP #$6A   	; string ID #026A uses Cannock's name
0x018E34|$06:$8E24:D0 04   	BNE $8E2A  	; string IDs > #026A uses Moonbrooke's name
0x018E36|$06:$8E26:A9 01   	LDA #$01   	; Cannock
0x018E38|$06:$8E28:D0 02   	BNE $8E2C  
; control flow target (from $8E24)
0x018E3A|$06:$8E2A:A9 02   	LDA #$02   	; Moonbrooke
; control flow target (from $8E20, $8E28)
; call to code in a different bank ($0F:$FC50)
0x018E3C|$06:$8E2C:20 50 FC	JSR $FC50  	; print name of hero given by low 2 bits of A to $6119, terminated by #$FA
0x018E3F|$06:$8E2F:68      	PLA        	; String IDs #$0200-#$026B: "‘When in need, visit the Houses of Healing[.’][end-FC]" / "‘[name] is still inexperienced.[line]Return here in thy need[.’][end-FC]" / "‘One who sets foot upon the Travel Door is transported to a distant place[.’][end-FC]" / "‘The Dragon's Bane is a magic charm[.’][wait][line]‘It is said that it may keep one safe from the spell[.’][end-FC]" / "‘If thy path leads west of this castle thou shall reach the town of Leftwyne[.’][end-FC]" / "‘This is Midenhall Castle[.’][end-FC]" / "‘Remember to equip thyself with weapons and armor when thou obtains such items[.’][end-FC]" / "‘Woof, woof!’[end-FC]" / "‘[name], royalty should not venture into prisons such as this[.’][end-FC]" / "‘I have heard that the heir of our good King has ventured forth to do battle with the evil sorcerer, Hargon[.’][wait][line]‘What? Thou art the one? Luck be with thee[.’][end-FC]" / "‘If thou art poisoned, each step will weaken thee further[.’][end-FC]" / "‘Northward lies the castle of Cannock, my friend[.’][end-FC]" / "‘Welcome to Leftwyne[.’][end-FC]" / "‘Look for the monolith by the inland sea west of this place[.’][wait][line]‘It is by that route alone that thou shall reach Moonbrooke[.’][end-FC]" / "‘Oh, thou scared me! And my hiccups are cured! Thank thee, stranger[.’][end-FC]" / "‘Bow-wow!’[end-FC]" / "‘I have heard of a cave far to the east in which the Spring of Bravery rises[.’][end-FC]" / "‘Welcome to Cannock Castle[.’][end-FC]" / "‘Only if the descendants of Erdrick combine their skills can the forces of evil be overcome[.’][end-FC]" / "‘If thou would speak to the prisoners, do so through the barred doors[.’][end-FC]" / "‘Pssst.[line]I'll tell thee a secret[.’][wait][line]‘There is a silver key that opens doors of silver[.’][end-FC]" / "‘What does it matter if people steal things[.’][wait][line]‘The world is doomed no matter what happens[.’][end-FC]" / "‘I saw the sky burning red on the southern horizon[.’][wait][line]‘Perhaps it was Moonbrooke Castle in flames[.’][end-FC]" / "‘Listen closely[.’][wait][line]‘Our prince has studied the ways of magic, though with heavy armor or weapons he has no skill[.’][wait][line]‘Still, he seeks to fight evil[.’][end-FC]" / "‘There is a legend that tells of a great and good wizard who lives in a cave in the sea[.’][wait][line]‘If thou hast the five crests he will come to thee[.’][end-FC]" / "‘Here in Hamlin not all is as it seems[.’][wait][line]‘Talk to everyone, for appearances may not reflect the true person[.’][end-FC]" / "‘Southwest of this village lies the castle of Moonbrooke[.’][end-FC]" / "‘Some say that there is a tall tower, and in it a brave adventurer may find the Cloak of Wind[.’][wait][line]‘It can save thee if thou falls from a great height[.’][end-FC]" / "‘The Mirror of Ra was lost long ago in a swamp southeast of Hamlin in the place where four bridges can be seen[.’][end-FC]" / "‘Help! Help! Hargon is coming to destroy us all!’[end-FC]" / "‘Of keys and doors I know this[.’][wait][line]‘There are silver keys and golden keys, and doors to match them each[.’][wait][line]‘Seek thee first the silver key, for this is what I teach[.’][wait][line]‘That key is in the Cave of the Lake, west of Cannock's walls[.’][wait][line]‘But go only with a friend inside, or there thou shall surely fall[.’][end-FC]" / "‘Eastward, across an arm of the sea lies the kingdom of Alefgard[.’][wait][line]‘From there in ages past came a great warrior ‟a descendant of Erdrick” who slew dragons, and there came also a princess named Gwaelin[.’][end-FC]" / "‘Please, please, do not hurt me!’[wait][line]‘I can tell thee of a secret[.’][wait][line]‘In Hamlin Village there is a Water Crest. Seek it!’[end-FC]" / "‘It has been rumored that the king of Tantegel Castle has disappeared[.’][end-FC]" / "‘I am a soldier from Alefgard[.’][wait][line]‘Perhaps thou has seen ancient maps of my land, but it has changed much through the ages[.’][end-FC]" / "‘Thou art welcome in Lianport[.’][end-FC]" / "‘Yes, this is Tantegel[.’][end-FC]" / "‘The golden key opens the red door, too[.’][end-FC]" / "‘Pardon me, stranger, but I had a vision and in it descendants of the great hero Erdrick came to us in our need[.’][wait][line]‘Ah! So it was true.[line]Thou art truly welcome[.’][end-FC]" / "‘Thou hast come to Tantegel Castle[.’][end-FC]" / "‘Long ago Princess Gwaelin departed over the sea, but thy companion is her twin in appearance[.’][end-FC]" / "‘So thou has come even here to this simple room[.’][wait][line]‘I cannot help thee. My hope fled long ago[.’][end-FC]" / "‘The King keeps himself hidden, for he is afraid of Hargon's wrath[.’][end-FC]" / "‘The Echoing Flute blows a magical note[.’][wait][line]‘On an island, in a tower, in a chamber remote, play it and listen, a wise man once wrote[.’][wait][line]‘For when the sound echoes, there shall thou find, a crest of great power to aid thee in time[.’][end-FC]" / "‘So, thou art the great warriors of which we have heard[.’][end-FC]" / "‘Here in this coliseum many heroes have proven their strength[.’][end-FC]" / "‘Beyond lies the coliseum and the court of the King[.’][end-FC]" / "‘In the island town of Zahan in the southern ocean lives a man named Torval who owns the golden key[.’][end-FC]" / "‘As the story goes, it was a dark and stormy night when the pirate ship, Relentless, hit a reef and sank[.’][wait][line]‘They say that in its hold was the Echoing Flute[.’][end-FC]" / "‘I seek the Armor of Gaia[.’][wait][line]‘I was told that it was kept in a shop that sells armor[.’][end-FC]" / "Thou hast found the Stars Crest.[end-FC]" / "‘Do not overburden thyself. Cast away those items that thou doesn't need[.’][end-FC]" / "‘I have come seeking a thief by the name of Roge Fastfinger[.’][end-FC]" / "‘I warn thee to go back. This wizard's house may be thy ruin[.’][end-FC]" / "‘Thou hast come to Zahan at a poor time[.’][wait][line]‘All the men are away fishing at sea[.’][end-FC]" / "‘Many are the tales of a mountainous island in the sea and its great cavern[.’][wait][line]‘It is said that only one who bears the Moon Fragment may enter there[.’][end-FC]" / "‘One day I will be a great fisherman like Papa[.’][end-FC]" / "‘When the Moon Fragment is held upon high, the tide will rise and the seagulls cry[.’][end-FC]" / "‘Oh Formeo, Formeo, where for art thou my Formeo!’[end-FC]" / "‘Yes, I am Torval's wife. But just between us, he loves his dogs more than me[.’][end-FC]" / "‘That mutt yonder keeps pulling at my sleeve[.’][end-FC]" / "‘So thou hast heard of the sinking of the Relentless[.’][wait][line]‘Some say that the pirates simply left the plug out. Fools[.’][end-FC]" / "‘This is a town of lonely women, old men, dogs and children[.’][wait][line]‘What the men want of those stinking fish is beyond me[.’][end-FC]" / "‘Hello. This is the village of Tuhn[.’][end-FC]" / "‘Many years have passed since the Tower of the Moon could be reached by ship[.’][wait][line]‘It lies to the south[.’][end-FC]" / "‘Thou hast heard of Roge Fastfinger I see[.’][wait][line]‘Well, he stole the key to our watergate, the scoundrel.[line]We would dearly love to have it back[.’][end-FC]" / "‘If Jena sent thee, tell her I would not name our dog Ruffles for all the dragon's gold in Alefgard[.’][end-FC]" / "‘Ruff, ruff..[.’][end-FC]" / "‘It is said that the Tower of the Moon holds a piece of the moon[.’][end-FC]" / "‘I'm Jena. If thou meets my husband, tell him that my father's name was Ruffles[.’][end-FC]" / "‘Far and wide I have sought a master weaver who makes Water Flying Cloth, and they say such a man lives here[.’][end-FC]" / "‘If the watergate were to be raised, water would once more fill the dry riverbed[.’][end-FC]" / "‘Where has everyone gone?[line]Dost thou think it is my breath?’[end-FC]" / "‘Yip, yip, yip!’[end-FC]" / "‘Hargon dwells on the high plateau of Rhone[.’][wait][line]‘Only one who has the Eye of Malroth can find the road to that place[.’][end-FC]" / "‘It is true enough[.’][wait][line]‘I locked Roge Fastfinger in prison and threw away the key.[line]But he has escaped[.’][end-FC]" / "‘For the finest Water Flying Cloth I recommend Don Mahone who lives in Tuhn[.’][end-FC]" / "‘I bid thee welcome to Wellgarth Town[.’][wait][line]‘I shall sing for thee[.’][end-FC]" / "‘Let me tell thee, Hargon is a master of disguise, but if thou hast the Charm of Rubiss thou will see through the deception[.’][end-FC]" / "‘How dare thou enter a lady's room unbidden!’[end-FC]" / "‘It is said that the greatest shall fall by a spell of his own devising[.’][end-FC]" / "‘There is an isolated valley northwest of the town where once a road led to Rhone[.’][end-FC]" / "‘Some say that Hargon has cast a spell over his entire castle, that it looks fair and peaceful[.’][wait][line]‘Thou will not be deceived if thou hast the gift of Rubiss[.’][end-FC]" / "‘In the ocean far to the east lies an island and on it are trees from every corner of the world[.’][end-FC]" / "‘Having come this far, thou may as well try the door there to the left[.’][end-FC]" / "‘Roge Fastfinger? No, I have not heard the name[.’][end-FC]" / "‘We call this town Beran. Welcome[.’][end-FC]" / "‘Thou should see the King of Osterfair for the Moon Crest[.’][end-FC]" / "‘With the Magic Loom and Dew's Yarn thou can make the Water Flying Cloth[.’][end-FC]" / "‘The Leaf of the World Tree has the power to revive ghosts[.’][end-FC]" / "‘I seek the Thunder Sword, for one need not know magic to use its power[.’][end-FC]" / "‘Osterfair lies far south of Midenhall on a great island[.’][end-FC]" / "‘Welcome to Bragol's Tools. May I help thee?’[end-FC]" / "‘Greetings. I am the Keeper of this Inn[.’][end-FC]" / "‘Thou hast come to Midenhall[.’][end-FC]" / "‘[..][..][.’][end-FC]" / "‘[..][..][.’][end-FC]" / "‘Only the golden key can open this door[.’][end-FC]" / "‘This travel door takes one back to the underworld.[line]If that is thy wish, please enter[.’][end-FC]" / "‘The ancient road to Rhone was once west of this monolith[.’][end-FC]" / "‘In Cannock there is a young prince and Moonbrooke had a princess[.’][end-FC]" / "‘Although it makes me sad, thou must go forth and seek thy destiny[.’][end-FC]" / "‘Thief! Thief! What? Thou art [name], heir of Midenhall!’[wait][line]‘Please forgive me[.’][end-FC]" / "[end-FC]" / "‘Ghosts may wander this world under moon or sun and at times they may even be recalled[.’][end-FC]" / "‘If thy name is [name], I have a message for thee[.’][wait][line]‘Seek the Fire Monolith and thou shall find the Sun Crest[.’][end-FC]" / "‘That is the chamber of Prince [name]'s sister, Princess Halla[.’][end-FC]" / "‘After the sacking of Moonbrooke I escaped and made my way here, hoping others would follow[.’][end-FC]"
; control flow target (from $8E17)
; call to code in a different bank ($0F:$FA52)
0x018E40|$06:$8E30:20 52 FA	JSR $FA52  	; display string ID specified by A + #$0200
0x018E43|$06:$8E33:A5 49   	LDA $49    	; object hero/target/item/string ID $49
0x018E45|$06:$8E35:C9 6B   	CMP #$6B   
0x018E47|$06:$8E37:D0 08   	BNE $8E41  
; call to code in a different bank ($0F:$FA32)
0x018E49|$06:$8E39:20 32 FA	JSR $FA32  	; display string ID specified by next byte + #$0200

; code -> data
; indirect data load target
0x018E4C|$06:$8E3C:6C	; String ID #$026C: [end-FC]

; data -> code
; call to code in a different bank ($0F:$FA32)
0x018E4D|$06:$8E3D:20 32 FA	JSR $FA32  	; display string ID specified by next byte + #$0200

; code -> data
; indirect data load target
0x018E50|$06:$8E40:6D	; String ID #$026D: [end-FC]

; data -> code
; control flow target (from $8E37)
0x018E51|$06:$8E41:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; handler for dialogue IDs #$95-#$9C (open dialogue window, display string specified by A + #$1D9, display YES/NO menu, and display string corresponding to selected option)
; control flow target (from $81F7)
0x018E54|$06:$8E44:38      	SEC        
0x018E55|$06:$8E45:E9 95   	SBC #$95   	; why not just SBC #$27?
0x018E57|$06:$8E47:18      	CLC        
0x018E58|$06:$8E48:69 6E   	ADC #$6E   	; String IDs #$026E-#$0275: "‘Dost thou think it was Hargon who attacked Moonbrooke and set it aflame?’[FD][FD][end-FC]" / "‘Dost thou have a lottery ticket?’[FD][FD][end-FC]" / "‘This is a sewing shop, true, but I do not have the Dew's Yarn[.’][line]Dost thou seek the Dew's Yarn, too?’[FD][FD][end-FC]" / "‘Hast thou heard of the sunken treasure?’[FD][FD][end-FC]" / "‘Tell me, did thou come to buy the Jailor's Key?’[FD][FD][end-FC]" / "‘Pardon me, good folk, but dost thou have the time?’[FD][FD][end-FC]" / "‘Hast thou found the Eye of Malroth?’[FD][FD][end-FC]" / "‘Hast thy travels taken thee to the monolith south of Midenhall?’[FD][FD][end-FC]"
0x018E5A|$06:$8E4A:85 49   	STA $49    	; object hero/target/item/string ID $49
0x018E5C|$06:$8E4C:20 CB 9A	JSR $9ACB  	; open dialogue window
0x018E5F|$06:$8E4F:A5 49   	LDA $49    	; object hero/target/item/string ID $49
; call to code in a different bank ($0F:$FA52)
0x018E61|$06:$8E51:20 52 FA	JSR $FA52  	; display string ID specified by A + #$0200
0x018E64|$06:$8E54:20 D0 9A	JSR $9AD0  	; open YES/NO menu, return selected option in A
0x018E67|$06:$8E57:C9 00   	CMP #$00   	; YES
0x018E69|$06:$8E59:D0 04   	BNE $8E5F  
0x018E6B|$06:$8E5B:A9 08   	LDA #$08   	; String IDs #$0276-#$027D: "‘Yes, I think so, too[.’][end-FC]" / "‘The Lottery is but a game; do not take it too seriously[.’][end-FC]" / "‘Alas, I have no more of the Dew's Yarn, but I know where thou may seek some,[wait][line]for it is a substance made of wind and water and it drifts aloft until it lands on the third floor[line]in the North Tower of the Dragon's Horn[.’][end-FC]" / "‘The pirate ship sank in the wide seas of the north[.’][end-FC]" / "‘I heard that it is sold here, but perhaps that is a lie[.’][end-FC]" / "‘I thank thee very much indeed[.’][end-FC]" / "‘The Eye of Malroth sees much that is not readily apparent[.’][wait][line]‘Use it in the swamp of the hidden valley and perhaps thou will see a way to Rhone[.’][end-FC]" / "‘Please say nothing of this[.’][end-FC]"
0x018E6D|$06:$8E5D:D0 02   	BNE $8E61  
; control flow target (from $8E59)
0x018E6F|$06:$8E5F:A9 10   	LDA #$10   	; String IDs #$027E-#$0285: "‘But I cannot think of anyone else with such power[.’][end-FC]" / "‘Some merchants give out Lottery Tickets for free[.’][end-FC]" / "‘Stop again if thou art near[.’][end-FC]" / "‘Speak to the merchantman in Lianport[.’][end-FC]" / "‘Perhaps I should not say anything more[.’][end-FC]" / "‘Then may thy ears become cabbages and thy tongue a sausage[.’][wait][line]‘A little courtesy never killed anyone[.’][end-FC]" / "‘Once thou hast the Moon Fragment thou may enter the island cave where the Eye of Malroth is kept in darkness[.’][end-FC]" / "‘My brother must be there now. Will thou not go to him?’[end-FC]"
; control flow target (from $8E5D)
0x018E71|$06:$8E61:18      	CLC        
0x018E72|$06:$8E62:65 49   	ADC $49    	; object hero/target/item/string ID $49
; call to code in a different bank ($0F:$FA52)
0x018E74|$06:$8E64:20 52 FA	JSR $FA52  	; display string ID specified by A + #$0200
0x018E77|$06:$8E67:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; handler for dialogue IDs #$9D-#$C2 (town NPCs with complex logic)
; control flow target (from $81FE)
0x018E7A|$06:$8E6A:48      	PHA        	; dialogue ID
0x018E7B|$06:$8E6B:20 CB 9A	JSR $9ACB  	; open dialogue window
0x018E7E|$06:$8E6E:68      	PLA        	; dialogue ID
0x018E7F|$06:$8E6F:38      	SEC        
0x018E80|$06:$8E70:E9 9D   	SBC #$9D   	; convert to zero-based
0x018E82|$06:$8E72:0A      	ASL        	; 2 bytes per pointer
0x018E83|$06:$8E73:AA      	TAX        
0x018E84|$06:$8E74:BD 81 8E	LDA $8E81,X	; complex dialogue logic handlers
0x018E87|$06:$8E77:85 0C   	STA $0C    
0x018E89|$06:$8E79:BD 82 8E	LDA $8E82,X
0x018E8C|$06:$8E7C:85 0D   	STA $0D    
0x018E8E|$06:$8E7E:6C 0C 00	JMP ($000C)


; code -> data
; complex dialogue logic handlers
; indexed data load target (from $8E74)
0x018E91|$06:$8E81:CD
; indexed data load target (from $8E79)
0x018E92|$06:$8E82:   8E	; $06:$8ECD; handler for dialogue ID #$9D: King in Map ID #$02: Midenhall 2F
0x018E93|$06:$8E83:6A 8F	; $06:$8F6A; handler for dialogue ID #$9E: Guard in Map ID #$02: Midenhall 2F
0x018E95|$06:$8E85:85 8F	; $06:$8F85; handler for dialogue ID #$9F: Wizard in Map ID #$02: Midenhall 2F
0x018E97|$06:$8E87:AC 8F	; $06:$8FAC; handler for dialogue ID #$A0: Brute in Map ID #$04: Midenhall B1
0x018E99|$06:$8E89:CC 8F	; $06:$8FCC; handler for dialogue ID #$A1: King in Map ID #$06: Cannock
0x018E9B|$06:$8E8B:19 90	; $06:$9019; handler for dialogue ID #$A2: Princess Halla in Map ID #$06: Cannock
0x018E9D|$06:$8E8D:55 90	; $06:$9055; handler for dialogue ID #$A3: Wizard in Map ID #$06: Cannock
0x018E9F|$06:$8E8F:65 90	; $06:$9065; handler for dialogue ID #$A4-#$A5: Monsters in Map ID #$08: Hamlin Waterway
0x018EA1|$06:$8E91:65 90	; $06:$9065; handler for dialogue ID #$A4-#$A5: Monsters in Map ID #$08: Hamlin Waterway
0x018EA3|$06:$8E93:77 90	; $06:$9077; handler for dialogue ID #$A6: King Moonbrooke's Flame in Map ID #$09: Moonbrooke
0x018EA5|$06:$8E95:95 90	; $06:$9095; handler for dialogue ID #$A7: Guard in Map ID #$0A: Moonbrooke B1
0x018EA7|$06:$8E97:A8 90	; $06:$90A8; handler for dialogue ID #$A8: Wizard in Map ID #$0B: Lianport
0x018EA9|$06:$8E99:CC 90	; $06:$90CC; handler for dialogue ID #$A9: Echoing Flute guy in NE in Map ID #$0B: Lianport
0x018EAB|$06:$8E9B:EF 90	; $06:$90EF; handler for dialogue ID #$AA: Woman in Map ID #$0B: Lianport
0x018EAD|$06:$8E9D:02 91	; $06:$9102; handler for dialogue ID #$AB: Brute in Map ID #$0B: Lianport
0x018EAF|$06:$8E9F:12 91	; $06:$9112; handler for dialogue ID #$AC: Woman in SW corner of Map ID #$0B: Lianport
0x018EB1|$06:$8EA1:4D 91	; $06:$914D; handler for dialogue ID #$AD: Wizard in Map ID #$0C: Tantegel
0x018EB3|$06:$8EA3:6E 91	; $06:$916E; handler for dialogue ID #$AE: Wizard in Map ID #$0C: Tantegel
0x018EB5|$06:$8EA5:7B 91	; $06:$917B; handler for dialogue ID #$AF: Priest in Map ID #$0C: Tantegel
0x018EB7|$06:$8EA7:97 91	; $06:$9197; handler for dialogue ID #$B0: King in Map ID #$0F: Osterfair
0x018EB9|$06:$8EA9:13 92	; $06:$9213; handler for dialogue ID #$B1: crazy fortuneteller Wizard in NW Map ID #$0F: Osterfair
0x018EBB|$06:$8EAB:8B 92	; $06:$928B; handler for dialogue IDs #$B2-#$B3: Dog in Map ID #$0F: Osterfair
0x018EBD|$06:$8EAD:8B 92	; $06:$928B; handler for dialogue IDs #$B2-#$B3: Dog in Map ID #$0F: Osterfair
0x018EBF|$06:$8EAF:92 92	; $06:$9292; handler for dialogue ID #$B4: Dog in Map ID #$10: Zahan
0x018EC1|$06:$8EB1:99 92	; $06:$9299; handler for dialogue ID #$B5: Don Mahone in Map ID #$11: Tuhn
0x018EC3|$06:$8EB3:FE 92	; $06:$92FE; handler for dialogue ID #$B6: Roge Fastfinger in NE Map ID #$14: Wellgarth Underground
0x018EC5|$06:$8EB5:2C 93	; $06:$932C; handler for dialogue IDs #$B7-#$B9: Priest in Map ID #$15: Beran
0x018EC7|$06:$8EB7:2C 93	; $06:$932C; handler for dialogue IDs #$B7-#$B9: Priest in Map ID #$15: Beran
0x018EC9|$06:$8EB9:2C 93	; $06:$932C; handler for dialogue IDs #$B7-#$B9: Priest in Map ID #$15: Beran
0x018ECB|$06:$8EBB:3E 93	; $06:$933E; handler for dialogue ID #$BA: Monster in Map ID #$16: Hargon's Castle 1F
0x018ECD|$06:$8EBD:48 93	; $06:$9348; handler for dialogue ID #$BB: Hargon in Map ID #$17: Hargon's Castle 7F
0x018ECF|$06:$8EBF:7F 93	; $06:$937F; handler for dialogue ID #$BC: Dragonlord's Grandson in Map ID #$18: Charlock Castle B8
0x018ED1|$06:$8EC1:9B 93	; $06:$939B; handler for dialogue ID #$BD: Guard in Map ID #$1A: Shrine SW of Cannock
0x018ED3|$06:$8EC3:9F 93	; $06:$939F; handler for dialogue ID #$BE: Guard in Map ID #$1A: Shrine SW of Cannock
0x018ED5|$06:$8EC5:BE 93	; $06:$93BE; handler for dialogue ID #$BF: Wizard in Map ID #$1C: Shrine SE of Rimuldar
0x018ED7|$06:$8EC7:E1 93	; $06:$93E1; handler for dialogue ID #$C0: Wizard in Map ID #$15: Beran
0x018ED9|$06:$8EC9:00 94	; $06:$9400; handler for dialogue ID #$C1: Priest in Map ID #$1F: Rhone Shrine
0x018EDB|$06:$8ECB:4D 94	; $06:$944D; handler for dialogue ID #$C2: Priest in Map ID #$20: Shrine SW of Moonbrooke

; data -> code
; handler for dialogue ID #$9D: King in Map ID #$02: Midenhall 2F
; indirect control flow target (via $8E81)
0x018EDD|$06:$8ECD:20 D5 9A	JSR $9AD5  	; set A/$97 to ID of first living hero
0x018EE0|$06:$8ED0:D0 3A   	BNE $8F0C  	; different dialogue when talking to King Midenhall depending on whether Prince Midenhall is alive or not
; call to code in a different bank ($0F:$FC50)
0x018EE2|$06:$8ED2:20 50 FC	JSR $FC50  	; print name of hero given by low 2 bits of A to $6119, terminated by #$FA
; call to code in a different bank ($0F:$FA32)
0x018EE5|$06:$8ED5:20 32 FA	JSR $FA32  	; display string ID specified by next byte + #$0200

; code -> data
; indirect data load target
0x018EE8|$06:$8ED8:86	; String ID #$0286: ‘Welcome back, [name][.’][wait][end-FC]

; data -> code
0x018EE9|$06:$8ED9:20 66 94	JSR $9466  	; display EXP to next level messages for entire party
0x018EEC|$06:$8EDC:A9 00   	LDA #$00   	; Midenhall; pointless since none of these string use the [name] control code
; call to code in a different bank ($0F:$FC50)
0x018EEE|$06:$8EDE:20 50 FC	JSR $FC50  	; print name of hero given by low 2 bits of A to $6119, terminated by #$FA
0x018EF1|$06:$8EE1:A5 CA   	LDA $CA    	; Cannock runaround quest status (0 = start of game, 0 -> 1 = talked to King Cannock, 1 -> 2 = said YES to seeking Cannock in Spring of Bravery, 2 -> 3 = talked to King Midenhall; adding Cannock sets this to 3; some code checks for 4)
0x018EF3|$06:$8EE3:C9 02   	CMP #$02   
0x018EF5|$06:$8EE5:F0 0D   	BEQ $8EF4  	; update Cannock quest status to 3
0x018EF7|$06:$8EE7:C9 03   	CMP #$03   
0x018EF9|$06:$8EE9:D0 0F   	BNE $8EFA  
0x018EFB|$06:$8EEB:AD 3F 06	LDA $063F  	; Cannock status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence)
0x018EFE|$06:$8EEE:29 04   	AND #$04   	; pick out the In Party bit
0x018F00|$06:$8EF0:F0 04   	BEQ $8EF6  	; message for when you're able to add Cannock, but haven't yet done so
0x018F02|$06:$8EF2:D0 06   	BNE $8EFA  
; control flow target (from $8EE5)
0x018F04|$06:$8EF4:E6 CA   	INC $CA    	; Cannock runaround quest status (0 = start of game, 0 -> 1 = talked to King Cannock, 1 -> 2 = said YES to seeking Cannock in Spring of Bravery, 2 -> 3 = talked to King Midenhall; adding Cannock sets this to 3; some code checks for 4)
; control flow target (from $8EF0)
; call to code in a different bank ($0F:$FA32)
0x018F06|$06:$8EF6:20 32 FA	JSR $FA32  	; display string ID specified by next byte + #$0200

; code -> data
; indirect data load target
0x018F09|$06:$8EF9:89	; String ID #$0289: ‘Well, thou hast missed him[.’][wait][line]‘The Prince of Cannock was here, but now he is off to Midenhall, looking for thee, I believe[.’][wait][end-FC]

; data -> code
; control flow target (from $8EE9, $8EF2)
; call to code in a different bank ($0F:$FA32)
0x018F0A|$06:$8EFA:20 32 FA	JSR $FA32  	; display string ID specified by next byte + #$0200

; code -> data
; indirect data load target
0x018F0D|$06:$8EFD:87	; String ID #$0287: ‘Dost thou wish to save thy deeds in the Imperial Scrolls of Honor?’[FD][FD][end-FC]

; data -> code
0x018F0E|$06:$8EFE:A9 00   	LDA #$00   	; Save Point ID #$00: Midenhall 2F
0x018F10|$06:$8F00:85 48   	STA $48    	; last save point ID
0x018F12|$06:$8F02:20 5D A3	JSR $A35D  	; save game handler
; call to code in a different bank ($0F:$FA32)
0x018F15|$06:$8F05:20 32 FA	JSR $FA32  	; display string ID specified by next byte + #$0200

; code -> data
; indirect data load target
0x018F18|$06:$8F08:88	; String ID #$0288: [wait]‘All of us await the day that Hargon is cast down[.’][end-FC]

; data -> code
0x018F19|$06:$8F09:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; control flow target (from $8ED0)
0x018F1C|$06:$8F0C:A9 00   	LDA #$00   	; Midenhall
; call to code in a different bank ($0F:$FC50)
0x018F1E|$06:$8F0E:20 50 FC	JSR $FC50  	; print name of hero given by low 2 bits of A to $6119, terminated by #$FA
; call to code in a different bank ($0F:$FA32)
0x018F21|$06:$8F11:20 32 FA	JSR $FA32  	; display string ID specified by next byte + #$0200

; code -> data
; indirect data load target
0x018F24|$06:$8F14:8A	; String ID #$028A: ‘Poor [name]. Thou hast met an untimely end[.’][wait][end-FC]

; data -> code
0x018F25|$06:$8F15:20 66 94	JSR $9466  	; display EXP to next level messages for entire party
0x018F28|$06:$8F18:A9 00   	LDA #$00   	; Save Point ID #$00: Midenhall 2F
0x018F2A|$06:$8F1A:85 48   	STA $48    	; last save point ID
; call to code in a different bank ($0F:$FA32)
0x018F2C|$06:$8F1C:20 32 FA	JSR $FA32  	; display string ID specified by next byte + #$0200

; code -> data
; indirect data load target
0x018F2F|$06:$8F1F:87	; String ID #$0287: ‘Dost thou wish to save thy deeds in the Imperial Scrolls of Honor?’[FD][FD][end-FC]

; data -> code
; call to code in a different bank ($0F:$D16B)
0x018F30|$06:$8F20:20 6B D1	JSR $D16B  
0x018F33|$06:$8F23:20 D5 9A	JSR $9AD5  	; set A/$97 to ID of first living hero
0x018F36|$06:$8F26:20 25 8D	JSR $8D25  	; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA
; call to code in a different bank ($0F:$FA32)
0x018F39|$06:$8F29:20 32 FA	JSR $FA32  	; display string ID specified by next byte + #$0200

; code -> data
; indirect data load target
0x018F3C|$06:$8F2C:8B	; String ID #$028B: ‘[name]!’[wait][end-FC]

; data -> code
0x018F3D|$06:$8F2D:A9 00   	LDA #$00   	; Midenhall
; call to code in a different bank ($0F:$FC50)
0x018F3F|$06:$8F2F:20 50 FC	JSR $FC50  	; print name of hero given by low 2 bits of A to $6119, terminated by #$FA
; call to code in a different bank ($0F:$FA32)
0x018F42|$06:$8F32:20 32 FA	JSR $FA32  	; display string ID specified by next byte + #$0200

; code -> data
; indirect data load target
0x018F45|$06:$8F35:8C	; String ID #$028C: ‘Please give thy[line]regards to my son[.’][end-FC]

; data -> code
0x018F46|$06:$8F36:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; external control flow target (from $0F:$D28F)
0x018F49|$06:$8F39:4E 25 06	LSR $0625  	; party gold, high byte; full party death costs you half your gold
0x018F4C|$06:$8F3C:6E 24 06	ROR $0624  	; party gold, low byte
0x018F4F|$06:$8F3F:20 CB 9A	JSR $9ACB  	; open dialogue window
0x018F52|$06:$8F42:A9 00   	LDA #$00   	; Midenhall
; call to code in a different bank ($0F:$FC50)
0x018F54|$06:$8F44:20 50 FC	JSR $FC50  	; print name of hero given by low 2 bits of A to $6119, terminated by #$FA
; call to code in a different bank ($0F:$FA32)
0x018F57|$06:$8F47:20 32 FA	JSR $FA32  	; display string ID specified by next byte + #$0200

; code -> data
; indirect data load target
0x018F5A|$06:$8F4A:8D	; String ID #$028D: ‘No pulse, no breath, cold as a cod[.’][wait][line]‘Yes, thou art truly dead, [name][.’][wait][line]‘I suppose I had better revive thee, though thou deserve less[.’][end-FC]

; data -> code
0x018F5B|$06:$8F4B:4C 92 80	JMP $8092  	; wait until all joypad buttons are released and then some button pressed then wipe menus and exit COMMAND menu

; external control flow target (from $0F:$C6FD)
0x018F5E|$06:$8F4E:20 CB 9A	JSR $9ACB  	; open dialogue window
0x018F61|$06:$8F51:20 D5 9A	JSR $9AD5  	; set A/$97 to ID of first living hero
0x018F64|$06:$8F54:48      	PHA        
; call to code in a different bank ($0F:$FC50)
0x018F65|$06:$8F55:20 50 FC	JSR $FC50  	; print name of hero given by low 2 bits of A to $6119, terminated by #$FA
; call to code in a different bank ($0F:$FA32)
0x018F68|$06:$8F58:20 32 FA	JSR $FA32  	; display string ID specified by next byte + #$0200

; code -> data
; indirect data load target
0x018F6B|$06:$8F5B:8E	; String ID #$028E: ‘Welcome back, [name][.’][wait][end-FC]

; data -> code
0x018F6C|$06:$8F5C:20 66 94	JSR $9466  	; display EXP to next level messages for entire party
0x018F6F|$06:$8F5F:68      	PLA        
; call to code in a different bank ($0F:$FC50)
0x018F70|$06:$8F60:20 50 FC	JSR $FC50  	; print name of hero given by low 2 bits of A to $6119, terminated by #$FA
; call to code in a different bank ($0F:$FA32)
0x018F73|$06:$8F63:20 32 FA	JSR $FA32  	; display string ID specified by next byte + #$0200

; code -> data
; indirect data load target
0x018F76|$06:$8F66:90	; String ID #$0290: ‘Thy road is long and fraught with peril, but don't despair.[line]Come see me in thy need, [name][.’][end-FC]

; data -> code
0x018F77|$06:$8F67:4C 92 80	JMP $8092  	; wait until all joypad buttons are released and then some button pressed then wipe menus and exit COMMAND menu

; handler for dialogue ID #$9E: Guard in Map ID #$02: Midenhall 2F
; indirect control flow target (via $8E83)
0x018F7A|$06:$8F6A:A9 00   	LDA #$00   	; Midenhall
; call to code in a different bank ($0F:$FC50)
0x018F7C|$06:$8F6C:20 50 FC	JSR $FC50  	; print name of hero given by low 2 bits of A to $6119, terminated by #$FA
0x018F7F|$06:$8F6F:A5 44   	LDA $44    	; non-saved event status (#$00 = event start, #$01 = Lianport Gremlins defeated, #$02 = met with Lianport grandfather/have no friends at Shrine SW of Cannock, #$03 = King Midenhall moved to stairs, #$04 = King Midenhall moved down stairs, #$05 = King Midenhall spoke on Midenhall 1F, #$0B = Lighthouse Wizard 7F, #$1B Lighthouse Wizard 2F spoke, #$64 = Hargon dead, #$FF = event end)
0x018F81|$06:$8F71:C9 03   	CMP #$03   
0x018F83|$06:$8F73:F0 08   	BEQ $8F7D  
0x018F85|$06:$8F75:C9 04   	CMP #$04   
0x018F87|$06:$8F77:F0 04   	BEQ $8F7D  
0x018F89|$06:$8F79:A9 92   	LDA #$92   	; String ID #$0292: ‘I would come with thee, [name],[wait][line]but my place is here beside the King[.’][end-FC]
0x018F8B|$06:$8F7B:D0 02   	BNE $8F7F  
; control flow target (from $8F73, $8F77)
0x018F8D|$06:$8F7D:A9 91   	LDA #$91   	; String ID #$0291: ‘By land and sea and air will thy path lead, and in places I cannot see[.’][end-FC]
; control flow target (from $8F7B)
; call to code in a different bank ($0F:$FA52)
0x018F8F|$06:$8F7F:20 52 FA	JSR $FA52  	; display string ID specified by A + #$0200
0x018F92|$06:$8F82:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; handler for dialogue ID #$9F: Wizard in Map ID #$02: Midenhall 2F
; indirect control flow target (via $8E85)
0x018F95|$06:$8F85:A9 00   	LDA #$00   	; Midenhall
; call to code in a different bank ($0F:$FC50)
0x018F97|$06:$8F87:20 50 FC	JSR $FC50  	; print name of hero given by low 2 bits of A to $6119, terminated by #$FA
0x018F9A|$06:$8F8A:A5 44   	LDA $44    	; non-saved event status (#$00 = event start, #$01 = Lianport Gremlins defeated, #$02 = met with Lianport grandfather/have no friends at Shrine SW of Cannock, #$03 = King Midenhall moved to stairs, #$04 = King Midenhall moved down stairs, #$05 = King Midenhall spoke on Midenhall 1F, #$0B = Lighthouse Wizard 7F, #$1B Lighthouse Wizard 2F spoke, #$64 = Hargon dead, #$FF = event end)
0x018F9C|$06:$8F8C:C9 03   	CMP #$03   
0x018F9E|$06:$8F8E:F0 04   	BEQ $8F94  
0x018FA0|$06:$8F90:C9 04   	CMP #$04   
0x018FA2|$06:$8F92:D0 07   	BNE $8F9B  
; control flow target (from $8F8E)
; call to code in a different bank ($0F:$FA32)
0x018FA4|$06:$8F94:20 32 FA	JSR $FA32  	; display string ID specified by next byte + #$0200

; code -> data
; indirect data load target
0x018FA7|$06:$8F97:93	; String ID #$0293: ‘It is difficult to see thee go, [name][.’][end-FC]

; data -> code
0x018FA8|$06:$8F98:4C A9 8F	JMP $8FA9  

; control flow target (from $8F92)
0x018FAB|$06:$8F9B:20 D5 9A	JSR $9AD5  	; set A/$97 to ID of first living hero
0x018FAE|$06:$8F9E:D0 04   	BNE $8FA4  	; branch if Midenhall dead
0x018FB0|$06:$8FA0:A9 94   	LDA #$94   	; String ID #$0294: ‘Thou art now as strong as an ox and twice as good looking.[line]That is very good[.’][end-FC]
0x018FB2|$06:$8FA2:D0 02   	BNE $8FA6  
; control flow target (from $8F9E)
0x018FB4|$06:$8FA4:A9 95   	LDA #$95   	; String ID #$0295: ‘[name], it is such a pity[.’][end-FC]
; control flow target (from $8FA2)
; call to code in a different bank ($0F:$FA52)
0x018FB6|$06:$8FA6:20 52 FA	JSR $FA52  	; display string ID specified by A + #$0200
; control flow target (from $8F98)
0x018FB9|$06:$8FA9:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; handler for dialogue ID #$A0: Brute in Map ID #$04: Midenhall B1
; indirect control flow target (via $8E87)
0x018FBC|$06:$8FAC:AD F2 05	LDA $05F2  	; probably whether door between you and NPC is open
0x018FBF|$06:$8FAF:F0 13   	BEQ $8FC4  
; call to code in a different bank ($0F:$FA32)
0x018FC1|$06:$8FB1:20 32 FA	JSR $FA32  	; display string ID specified by next byte + #$0200

; code -> data
; indirect data load target
0x018FC4|$06:$8FB4:96	; String ID #$0296: ‘Dost thou have the Jailor's Key?’[end-FC]

; data -> code
0x018FC5|$06:$8FB5:20 D0 9A	JSR $9AD0  	; open YES/NO menu, return selected option in A
0x018FC8|$06:$8FB8:C9 00   	CMP #$00   	; YES
0x018FCA|$06:$8FBA:D0 04   	BNE $8FC0  
0x018FCC|$06:$8FBC:A9 97   	LDA #$97   	; String ID #$0297: ‘Open this and I shall give thee some news[.’][end-FC]
0x018FCE|$06:$8FBE:D0 06   	BNE $8FC6  
; control flow target (from $8FBA)
0x018FD0|$06:$8FC0:A9 98   	LDA #$98   	; String ID #$0298: ‘Be gone with thee!’[end-FC]
0x018FD2|$06:$8FC2:D0 02   	BNE $8FC6  
; control flow target (from $8FAF)
0x018FD4|$06:$8FC4:A9 99   	LDA #$99   	; String ID #$0299: ‘As a reward for opening the door, let me tell thee of the Crest of Life[.’][wait][line]‘Find it on the dark road that leads to Rhone[.’][end-FC]
; control flow target (from $8FBE, $8FC2)
; call to code in a different bank ($0F:$FA52)
0x018FD6|$06:$8FC6:20 52 FA	JSR $FA52  	; display string ID specified by A + #$0200
0x018FD9|$06:$8FC9:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; handler for dialogue ID #$A1: King in Map ID #$06: Cannock
; indirect control flow target (via $8E89)
0x018FDC|$06:$8FCC:20 D5 9A	JSR $9AD5  	; set A/$97 to ID of first living hero
; call to code in a different bank ($0F:$FC50)
0x018FDF|$06:$8FCF:20 50 FC	JSR $FC50  	; print name of hero given by low 2 bits of A to $6119, terminated by #$FA
; call to code in a different bank ($0F:$F6CE)
0x018FE2|$06:$8FD2:20 CE F6	JSR $F6CE  	; return number of party members - 1 in A/X
0x018FE5|$06:$8FD5:85 49   	STA $49    	; object hero/target/item/string ID $49
; call to code in a different bank ($0F:$FA32)
0x018FE7|$06:$8FD7:20 32 FA	JSR $FA32  	; display string ID specified by next byte + #$0200

; code -> data
; indirect data load target
0x018FEA|$06:$8FDA:E2	; String ID #$02E2: ‘Welcome, [name]!’[wait][end-FC]

; data -> code
0x018FEB|$06:$8FDB:20 66 94	JSR $9466  	; display EXP to next level messages for entire party
0x018FEE|$06:$8FDE:A9 01   	LDA #$01   	; Cannock
; call to code in a different bank ($0F:$FC50)
0x018FF0|$06:$8FE0:20 50 FC	JSR $FC50  	; print name of hero given by low 2 bits of A to $6119, terminated by #$FA
0x018FF3|$06:$8FE3:A5 CA   	LDA $CA    	; Cannock runaround quest status (0 = start of game, 0 -> 1 = talked to King Cannock, 1 -> 2 = said YES to seeking Cannock in Spring of Bravery, 2 -> 3 = talked to King Midenhall; adding Cannock sets this to 3; some code checks for 4)
0x018FF5|$06:$8FE5:F0 06   	BEQ $8FED  
0x018FF7|$06:$8FE7:C9 01   	CMP #$01   
0x018FF9|$06:$8FE9:F0 04   	BEQ $8FEF  
0x018FFB|$06:$8FEB:D0 09   	BNE $8FF6  
; control flow target (from $8FE5)
0x018FFD|$06:$8FED:E6 CA   	INC $CA    	; Cannock runaround quest status (0 = start of game, 0 -> 1 = talked to King Cannock, 1 -> 2 = said YES to seeking Cannock in Spring of Bravery, 2 -> 3 = talked to King Midenhall; adding Cannock sets this to 3; some code checks for 4)
; control flow target (from $8FE9)
; call to code in a different bank ($0F:$FA32)
0x018FFF|$06:$8FEF:20 32 FA	JSR $FA32  	; display string ID specified by next byte + #$0200

; code -> data
; indirect data load target
0x019002|$06:$8FF2:9D	; String ID #$029D: ‘My son, [name], has already left on his journey[.’][wait] [line]‘Please find him and take him as thy companion[.’][wait][end-FC]

; data -> code
0x019003|$06:$8FF3:4C 02 90	JMP $9002  

; control flow target (from $8FEB)
0x019006|$06:$8FF6:C9 03   	CMP #$03   
0x019008|$06:$8FF8:D0 08   	BNE $9002  
0x01900A|$06:$8FFA:A5 49   	LDA $49    	; object hero/target/item/string ID $49
0x01900C|$06:$8FFC:D0 04   	BNE $9002  
; call to code in a different bank ($0F:$FA32)
0x01900E|$06:$8FFE:20 32 FA	JSR $FA32  	; display string ID specified by next byte + #$0200

; code -> data
; indirect data load target
0x019011|$06:$9001:9E	; String ID #$029E: [end-FC]

; data -> code
; control flow target (from $8FF3, $8FF8, $8FFC)
; call to code in a different bank ($0F:$FA32)
0x019012|$06:$9002:20 32 FA	JSR $FA32  	; display string ID specified by next byte + #$0200

; code -> data
; indirect data load target
0x019015|$06:$9005:87	; String ID #$0287: ‘Dost thou wish to save thy deeds in the Imperial Scrolls of Honor?’[FD][FD][end-FC]

; data -> code
0x019016|$06:$9006:A9 01   	LDA #$01   	; Save Point ID #$01: Cannock
0x019018|$06:$9008:85 48   	STA $48    	; last save point ID
0x01901A|$06:$900A:20 5D A3	JSR $A35D  	; save game handler
0x01901D|$06:$900D:A9 01   	LDA #$01   	; Cannock
; call to code in a different bank ($0F:$FC50)
0x01901F|$06:$900F:20 50 FC	JSR $FC50  	; print name of hero given by low 2 bits of A to $6119, terminated by #$FA
; call to code in a different bank ($0F:$FA32)
0x019022|$06:$9012:20 32 FA	JSR $FA32  	; display string ID specified by next byte + #$0200

; code -> data
; indirect data load target
0x019025|$06:$9015:9C	; String ID #$029C: [wait]‘With my son's help thou shall go far[.’][end-FC]

; data -> code
0x019026|$06:$9016:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; handler for dialogue ID #$A2: Princess Halla in Map ID #$06: Cannock
; indirect control flow target (via $8E8B)
0x019029|$06:$9019:A5 CA   	LDA $CA    	; Cannock runaround quest status (0 = start of game, 0 -> 1 = talked to King Cannock, 1 -> 2 = said YES to seeking Cannock in Spring of Bravery, 2 -> 3 = talked to King Midenhall; adding Cannock sets this to 3; some code checks for 4)
0x01902B|$06:$901B:C9 04   	CMP #$04   
0x01902D|$06:$901D:D0 04   	BNE $9023  
0x01902F|$06:$901F:A9 A4   	LDA #$A4   	; String ID #$02A4: [end-FC]
0x019031|$06:$9021:D0 16   	BNE $9039  
; control flow target (from $901D)
; call to code in a different bank ($0F:$F6CE)
0x019033|$06:$9023:20 CE F6	JSR $F6CE  	; return number of party members - 1 in A/X
0x019036|$06:$9026:D0 17   	BNE $903F  
; call to code in a different bank ($0F:$FA32)
0x019038|$06:$9028:20 32 FA	JSR $FA32  	; display string ID specified by next byte + #$0200

; code -> data
; indirect data load target
0x01903B|$06:$902B:9F	; String ID #$029F: ‘Who art thou?[line]A friend of my brother's?’[FD][FD][end-FC]

; data -> code
0x01903C|$06:$902C:20 D0 9A	JSR $9AD0  	; open YES/NO menu, return selected option in A
0x01903F|$06:$902F:C9 00   	CMP #$00   	; YES
0x019041|$06:$9031:D0 04   	BNE $9037  
0x019043|$06:$9033:A9 A0   	LDA #$A0   	; String ID #$02A0: ‘Then I'll give thee some advice[.’][wait][line]‘My brother has gone searching for the Spring of Bravery, but he travels slowly[.’][end-FC]
0x019045|$06:$9035:D0 02   	BNE $9039  
; control flow target (from $9031)
0x019047|$06:$9037:A9 A1   	LDA #$A1   	; String ID #$02A1: ‘Then I wish to be left alone[.’][end-FC]
; control flow target (from $9021, $9035, $904F, $9053)
; call to code in a different bank ($0F:$FA52)
0x019049|$06:$9039:20 52 FA	JSR $FA52  	; display string ID specified by A + #$0200
0x01904C|$06:$903C:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; control flow target (from $9026)
0x01904F|$06:$903F:A9 01   	LDA #$01   	; Cannock
0x019051|$06:$9041:85 97   	STA $97    	; subject hero ID $97
0x019053|$06:$9043:A9 80   	LDA #$80   	; Alive
0x019055|$06:$9045:20 9A 8D	JSR $8D9A  	; given hero ID in $97, and status in A, SEC if hero has that status, CLC otherwise
0x019058|$06:$9048:90 07   	BCC $9051  
0x01905A|$06:$904A:20 25 8D	JSR $8D25  	; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA
0x01905D|$06:$904D:A9 A2   	LDA #$A2   	; String ID #$02A2: ‘So, thou hast found my brother[.’][wait][line]‘Why dost thou tarry here when the world is in grave peril?’[end-FC]
0x01905F|$06:$904F:D0 E8   	BNE $9039  
; control flow target (from $9048)
0x019061|$06:$9051:A9 A3   	LDA #$A3   	; String ID #$02A3: ‘Oh, no! He is as dead as a pork chop[.’][end-FC]
0x019063|$06:$9053:D0 E4   	BNE $9039  
; handler for dialogue ID #$A3: Wizard in Map ID #$06: Cannock
; indirect control flow target (via $8E8D)
; call to code in a different bank ($0F:$FA32)
0x019065|$06:$9055:20 32 FA	JSR $FA32  	; display string ID specified by next byte + #$0200

; code -> data
; indirect data load target
0x019068|$06:$9058:A5	; String ID #$02A5: ‘Well, don't just stand there.[line]Open the treasure chest[.’][end-FC]

; data -> code
0x019069|$06:$9059:AD 1A 05	LDA $051A  	; something to do with whether you've opened the chest containing the Shield of Erdrick
0x01906C|$06:$905C:F0 04   	BEQ $9062  
; call to code in a different bank ($0F:$FA32)
0x01906E|$06:$905E:20 32 FA	JSR $FA32  	; display string ID specified by next byte + #$0200

; code -> data
; indirect data load target
0x019071|$06:$9061:A6	; String ID #$02A6: [wait]‘So you've already peeked, eh?’[end-FC]

; data -> code
; control flow target (from $905C)
0x019072|$06:$9062:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; handler for dialogue ID #$A4-#$A5: Monsters in Map ID #$08: Hamlin Waterway
; indirect control flow target (via $8E8F, $8E91)
; call to code in a different bank ($0F:$FA32)
0x019075|$06:$9065:20 32 FA	JSR $FA32  	; display string ID specified by next byte + #$0200

; code -> data
; indirect data load target
0x019078|$06:$9068:A9	; String ID #$02A9: ‘Aiyee!’[end-FC]

; data -> code
0x019079|$06:$9069:AD F2 05	LDA $05F2  	; probably whether door between you and NPC is open
0x01907C|$06:$906C:D0 06   	BNE $9074  
; call to code in a different bank ($0F:$D1A1)
0x01907E|$06:$906E:20 A1 D1	JSR $D1A1  	; handle Hamlin Waterway Gremlins fight
0x019081|$06:$9071:4C 95 80	JMP $8095  	; wipe menus and exit COMMAND menu

; control flow target (from $906C)
0x019084|$06:$9074:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; handler for dialogue ID #$A6: King Moonbrooke's Flame in Map ID #$09: Moonbrooke
; indirect control flow target (via $8E93)
0x019087|$06:$9077:A9 02   	LDA #$02   	; Moonbrooke
; call to code in a different bank ($0F:$FC50)
0x019089|$06:$9079:20 50 FC	JSR $FC50  	; print name of hero given by low 2 bits of A to $6119, terminated by #$FA
; call to code in a different bank ($0F:$FA32)
0x01908C|$06:$907C:20 32 FA	JSR $FA32  	; display string ID specified by next byte + #$0200

; code -> data
; indirect data load target
0x01908F|$06:$907F:AA	; String ID #$02AA: ‘Woe is me, for I am the unhappy ghost of the King of Moonbrooke[.’][wait][line]‘To make matters worse, my daughter has been cursed and transformed into a common mutt[.’][wait][line]‘I am burning with shame[.’][end-FC]

; data -> code
0x019090|$06:$9080:AD 51 06	LDA $0651  	; Moonbrooke status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence)
0x019093|$06:$9083:29 84   	AND #$84   	; pick out the Alive and In Party bits
0x019095|$06:$9085:C9 84   	CMP #$84   	; is Moonbrooke alive and in your party?
0x019097|$06:$9087:D0 09   	BNE $9092  	; if yes, she gets extra text
0x019099|$06:$9089:A9 02   	LDA #$02   	; Moonbrooke
; call to code in a different bank ($0F:$FC50)
0x01909B|$06:$908B:20 50 FC	JSR $FC50  	; print name of hero given by low 2 bits of A to $6119, terminated by #$FA
; call to code in a different bank ($0F:$FA32)
0x01909E|$06:$908E:20 32 FA	JSR $FA32  	; display string ID specified by next byte + #$0200

; code -> data
; indirect data load target
0x0190A1|$06:$9091:AB	; String ID #$02AB: [wait][line][no voice]Then [name] cried[line][no voice]out: ‘Father? Is it really thee in the flames?’[wait][line]And the Flame replied: ‘Alas, it is I. It is Hargon's way of firing those he doesn't need[.’][end-FC]

; data -> code
; control flow target (from $9087)
0x0190A2|$06:$9092:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; handler for dialogue ID #$A7: Guard in Map ID #$0A: Moonbrooke B1
; indirect control flow target (via $8E95)
0x0190A5|$06:$9095:20 93 94	JSR $9493  	; SEC if Moonbrooke in party, CLC otherwise
0x0190A8|$06:$9098:90 07   	BCC $90A1  
; call to code in a different bank ($0F:$FA32)
0x0190AA|$06:$909A:20 32 FA	JSR $FA32  	; display string ID specified by next byte + #$0200

; code -> data
; indirect data load target
0x0190AD|$06:$909D:AD	; String ID #$02AD: ‘Princess, thou art now free[.’][end-FC]

; data -> code
0x0190AE|$06:$909E:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; control flow target (from $9098)
; call to code in a different bank ($0F:$FA32)
0x0190B1|$06:$90A1:20 32 FA	JSR $FA32  	; display string ID specified by next byte + #$0200

; code -> data
; indirect data load target
0x0190B4|$06:$90A4:AC	; String ID #$02AC: ‘The Princess has been transformed by a curse[.’][wait][line]‘Only the Mirror of Ra can break the spell, for in that glass one sees her true self[.’][end-FC]

; data -> code
0x0190B5|$06:$90A5:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; handler for dialogue ID #$A8: Wizard in Map ID #$0B: Lianport
; indirect control flow target (via $8E97)
0x0190B8|$06:$90A8:AD 9C 05	LDA $059C  	; NPC #$0C X-pos
0x0190BB|$06:$90AB:C9 0F   	CMP #$0F   
0x0190BD|$06:$90AD:D0 04   	BNE $90B3  
0x0190BF|$06:$90AF:A9 B8   	LDA #$B8   	; String ID #$02B8: ‘Farewell[.’][end-FC]
0x0190C1|$06:$90B1:D0 06   	BNE $90B9  
; control flow target (from $90AD)
0x0190C3|$06:$90B3:A5 CF   	LDA $CF    	; ship status (#$04 = on ship, #$02 = own ship, #$01 = beat Lianport Gremlins)
0x0190C5|$06:$90B5:D0 08   	BNE $90BF  
0x0190C7|$06:$90B7:A9 AE   	LDA #$AE   	; String ID #$02AE: ‘We never lend boats to strangers, sorry[.’][end-FC]
; control flow target (from $90B1)
; call to code in a different bank ($0F:$FA52)
0x0190C9|$06:$90B9:20 52 FA	JSR $FA52  	; display string ID specified by A + #$0200
0x0190CC|$06:$90BC:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; control flow target (from $90B5)
; call to code in a different bank ($0F:$FA32)
0x0190CF|$06:$90BF:20 32 FA	JSR $FA32  	; display string ID specified by next byte + #$0200

; code -> data
; indirect data load target
0x0190D2|$06:$90C2:AF	; String ID #$02AF: ‘Oh, thou art the ones who helped my granddaughter[.’][wait][line]‘Many thanks[.’][end-FC]

; data -> code
; call to code in a different bank ($0F:$D0F5)
0x0190D3|$06:$90C3:20 F5 D0	JSR $D0F5  	; wait for a while and then wipe menu regions #$03, #$00, and #$01
; call to code in a different bank ($0F:$CCA2)
0x0190D6|$06:$90C6:20 A2 CC	JSR $CCA2  
0x0190D9|$06:$90C9:4C 95 80	JMP $8095  	; wipe menus and exit COMMAND menu

; handler for dialogue ID #$A9: Echoing Flute guy in NE in Map ID #$0B: Lianport
; indirect control flow target (via $8E99)
0x0190DC|$06:$90CC:A9 25   	LDA #$25   	; Item ID #$25: Tresures
0x0190DE|$06:$90CE:20 69 A3	JSR $A369  	; check for item A in party inventory, returning inventory index of item in A/X if found, #$FF if not
0x0190E1|$06:$90D1:10 0B   	BPL $90DE  	; branch if found
0x0190E3|$06:$90D3:A9 2A   	LDA #$2A   	; Item ID #$2A: Echoing Flute
0x0190E5|$06:$90D5:20 69 A3	JSR $A369  	; check for item A in party inventory, returning inventory index of item in A/X if found, #$FF if not
0x0190E8|$06:$90D8:10 0D   	BPL $90E7  	; branch if found
0x0190EA|$06:$90DA:A9 B0   	LDA #$B0   	; String ID #$02B0: ‘The pirate ship Relentless sank in chill waters with a great treasure still aboard[.’][wait][line]‘Bring me this treasure and I shall pay a handsome fee[.’][end-FC]
0x0190EC|$06:$90DC:D0 0B   	BNE $90E9  
; control flow target (from $90D1)
0x0190EE|$06:$90DE:A9 2A   	LDA #$2A   	; Item ID #$2A: Echoing Flute
0x0190F0|$06:$90E0:9D 00 06	STA $0600,X	; Midenhall inventory item 1 (| #$40 if equipped); replace Tresures in party inventory with Echoing Flute
0x0190F3|$06:$90E3:A9 B1   	LDA #$B1   	; String ID #$02B1: ‘Thou hast done exceedingly well[.’][wait][line]‘As I promised I shall give thee the Echoing Flute as thy reward[.’][end-FC]
0x0190F5|$06:$90E5:D0 02   	BNE $90E9  
; control flow target (from $90D8)
0x0190F7|$06:$90E7:A9 B2   	LDA #$B2   	; String ID #$02B2: ‘Thanks to thee I was greatly helped[.’][end-FC]
; control flow target (from $90DC, $90E5)
; call to code in a different bank ($0F:$FA52)
0x0190F9|$06:$90E9:20 52 FA	JSR $FA52  	; display string ID specified by A + #$0200
0x0190FC|$06:$90EC:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; handler for dialogue ID #$AA: Woman in Map ID #$0B: Lianport
; indirect control flow target (via $8E9B)
0x0190FF|$06:$90EF:AD 94 05	LDA $0594  	; NPC #$0B X-pos
0x019102|$06:$90F2:C9 03   	CMP #$03   
0x019104|$06:$90F4:D0 04   	BNE $90FA  
0x019106|$06:$90F6:A9 B9   	LDA #$B9   	; String ID #$02B9: ‘I am in thy debt.[line]Please see my grandfather[.’][wait][line]‘He is at the port where his ship is docked[.’][end-FC]
0x019108|$06:$90F8:D0 02   	BNE $90FC  
; control flow target (from $90F4)
0x01910A|$06:$90FA:A9 B7   	LDA #$B7   	; String ID #$02B7: ‘I wish thee speed and health[.’][end-FC]
; control flow target (from $90F8)
; call to code in a different bank ($0F:$FA52)
0x01910C|$06:$90FC:20 52 FA	JSR $FA52  	; display string ID specified by A + #$0200
0x01910F|$06:$90FF:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; handler for dialogue ID #$AB: Brute in Map ID #$0B: Lianport
; indirect control flow target (via $8E9D)
; call to code in a different bank ($0F:$FA32)
0x019112|$06:$9102:20 32 FA	JSR $FA32  	; display string ID specified by next byte + #$0200

; code -> data
; indirect data load target
0x019115|$06:$9105:BA	; String ID #$02BA: ‘I have nothing to say to thee[.’][end-FC]

; data -> code
0x019116|$06:$9106:20 9D 94	JSR $949D  	; SEC if Moonbrooke alive, CLC otherwise
0x019119|$06:$9109:90 04   	BCC $910F  
; call to code in a different bank ($0F:$FA32)
0x01911B|$06:$910B:20 32 FA	JSR $FA32  	; display string ID specified by next byte + #$0200

; code -> data
; indirect data load target
0x01911E|$06:$910E:BB	; String ID #$02BB: [wait]‘That's right, nothing at all[.’][end-FC]

; data -> code
; control flow target (from $9109)
0x01911F|$06:$910F:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; handler for dialogue ID #$AC: Woman in SW corner of Map ID #$0B: Lianport
; indirect control flow target (via $8E9F)
0x019122|$06:$9112:20 9D 94	JSR $949D  	; SEC if Moonbrooke alive, CLC otherwise
0x019125|$06:$9115:B0 2E   	BCS $9145  	; if Moonbrooke's alive, display the boring string, otherwise...
; call to code in a different bank ($0F:$FA32)
0x019127|$06:$9117:20 32 FA	JSR $FA32  	; display string ID specified by next byte + #$0200

; code -> data
; indirect data load target
0x01912A|$06:$911A:BC	; String ID #$02BC: ‘Dost thou think I am pretty enough to be a queen?’[end-FC]

; data -> code
0x01912B|$06:$911B:20 D0 9A	JSR $9AD0  	; open YES/NO menu, return selected option in A
0x01912E|$06:$911E:C9 00   	CMP #$00   	; #$00 = YES
0x019130|$06:$9120:D0 1F   	BNE $9141  	; branch if you chose NO
0x019132|$06:$9122:20 D5 9A	JSR $9AD5  	; set A/$97 to ID of first living hero
0x019135|$06:$9125:20 25 8D	JSR $8D25  	; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA
0x019138|$06:$9128:A9 64   	LDA #$64   	; 100 gold
0x01913A|$06:$912A:85 8F   	STA $8F    
0x01913C|$06:$912C:A9 00   	LDA #$00   
0x01913E|$06:$912E:85 90   	STA $90    
0x019140|$06:$9130:20 31 8D	JSR $8D31  	; given gold amount in $8F-$90, decrease party gold by that amount and SEC if possible, CLC otherwise
0x019143|$06:$9133:B0 08   	BCS $913D  	; if you didn't have 100 G to start with, reduce party gold to 0 :(
0x019145|$06:$9135:A9 00   	LDA #$00   
0x019147|$06:$9137:8D 24 06	STA $0624  	; party gold, low byte
0x01914A|$06:$913A:8D 25 06	STA $0625  	; party gold, high byte
; control flow target (from $9133)
0x01914D|$06:$913D:A9 BD   	LDA #$BD   	; String ID #$02BD: ‘Perhaps the great Prince of Cannock thinks so too[.’][end-FC]
0x01914F|$06:$913F:D0 06   	BNE $9147  
; control flow target (from $9120)
0x019151|$06:$9141:A9 BE   	LDA #$BE   	; String ID #$02BE: ‘What's wrong!’[end-FC]
0x019153|$06:$9143:D0 02   	BNE $9147  
; control flow target (from $9115)
0x019155|$06:$9145:A9 BF   	LDA #$BF   	; String ID #$02BF: ‘Be nice to one who lives here; she knows how to turn princes into tadpoles[.’][end-FC]
; control flow target (from $913F, $9143)
; call to code in a different bank ($0F:$FA52)
0x019157|$06:$9147:20 52 FA	JSR $FA52  	; display string ID specified by A + #$0200
0x01915A|$06:$914A:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; handler for dialogue ID #$AD: Wizard in Map ID #$0C: Tantegel
; indirect control flow target (via $8EA1)
0x01915D|$06:$914D:A9 00   	LDA #$00   
0x01915F|$06:$914F:85 49   	STA $49    	; object hero/target/item/string ID $49
0x019161|$06:$9151:85 97   	STA $97    	; subject hero ID $97
; control flow target (from $915E)
0x019163|$06:$9153:20 FC 9A	JSR $9AFC  	; given hero ID in $97 and hero inventory index in $49, set Z if item is equipped and cursed, clear if not
0x019166|$06:$9156:F0 0A   	BEQ $9162  
0x019168|$06:$9158:E6 49   	INC $49    	; object hero/target/item/string ID $49
0x01916A|$06:$915A:A5 49   	LDA $49    	; object hero/target/item/string ID $49
0x01916C|$06:$915C:C9 18   	CMP #$18   	; party inventory size
0x01916E|$06:$915E:D0 F3   	BNE $9153  
0x019170|$06:$9160:F0 04   	BEQ $9166  
; control flow target (from $9156)
0x019172|$06:$9162:A9 C1   	LDA #$C1   	; String ID #$02C1: ‘Unfortunately I have not the skill to cure this curse[.’][end-FC]
0x019174|$06:$9164:D0 02   	BNE $9168  
; control flow target (from $9160)
0x019176|$06:$9166:A9 C0   	LDA #$C0   	; String ID #$02C0: ‘Come here when thou art afflicted by a curse[.’][end-FC]
; control flow target (from $9164)
; call to code in a different bank ($0F:$FA52)
0x019178|$06:$9168:20 52 FA	JSR $FA52  	; display string ID specified by A + #$0200
0x01917B|$06:$916B:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; handler for dialogue ID #$AE: Wizard in Map ID #$0C: Tantegel
; indirect control flow target (via $8EA3)
; call to code in a different bank ($0F:$FA32)
0x01917E|$06:$916E:20 32 FA	JSR $FA32  	; display string ID specified by next byte + #$0200

; code -> data
; indirect data load target
0x019181|$06:$9171:C2	; String ID #$02C2: ‘Peace be with thee[.’][end-FC]

; data -> code
; call to code in a different bank ($0F:$C515)
0x019182|$06:$9172:20 15 C5	JSR $C515  	; flash screen 10 times
0x019185|$06:$9175:20 EC 8D	JSR $8DEC  	; restore full MP to all living party members
0x019188|$06:$9178:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; handler for dialogue ID #$AF: Priest in Map ID #$0C: Tantegel
; indirect control flow target (via $8EA5)
0x01918B|$06:$917B:20 D5 9A	JSR $9AD5  	; set A/$97 to ID of first living hero
; call to code in a different bank ($0F:$FA32)
0x01918E|$06:$917E:20 32 FA	JSR $FA32  	; display string ID specified by next byte + #$0200

; code -> data
; indirect data load target
0x019191|$06:$9181:C3	; String ID #$02C3: ‘To the noble descendant of Erdrick I bid welcome[.’][wait][end-FC]

; data -> code
0x019192|$06:$9182:20 66 94	JSR $9466  	; display EXP to next level messages for entire party
; call to code in a different bank ($0F:$FA32)
0x019195|$06:$9185:20 32 FA	JSR $FA32  	; display string ID specified by next byte + #$0200

; code -> data
; indirect data load target
0x019198|$06:$9188:A7	; String ID #$02A7: ‘Although there is no king here, I can save thy deeds[.’][wait][line]‘Shall I do this?’[FD][FD][end-FC]

; data -> code
0x019199|$06:$9189:A9 02   	LDA #$02   	; Save Point ID #$02: Tantegel
0x01919B|$06:$918B:85 48   	STA $48    	; last save point ID
0x01919D|$06:$918D:20 5D A3	JSR $A35D  	; save game handler
; call to code in a different bank ($0F:$FA32)
0x0191A0|$06:$9190:20 32 FA	JSR $FA32  	; display string ID specified by next byte + #$0200

; code -> data
; indirect data load target
0x0191A3|$06:$9193:C4	; String ID #$02C4: [wait]‘Go in peace[.’][end-FC]

; data -> code
0x0191A4|$06:$9194:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; handler for dialogue ID #$B0: King in Map ID #$0F: Osterfair
; indirect control flow target (via $8EA7)
0x0191A7|$06:$9197:A5 98   	LDA $98    	; outcome of last fight?
0x0191A9|$06:$9199:F0 06   	BEQ $91A1  
0x0191AB|$06:$919B:C9 FC   	CMP #$FC   
0x0191AD|$06:$919D:F0 44   	BEQ $91E3  
0x0191AF|$06:$919F:D0 25   	BNE $91C6  
; control flow target (from $9199)
0x0191B1|$06:$91A1:AD 12 01	LDA $0112  	; Crests found bit field (#$10 = Life, #$80 = Water, #$04 = Moon, #$02 = Stars, #$01 = Sun)
0x0191B4|$06:$91A4:29 04   	AND #$04   	; Moon Crest
0x0191B6|$06:$91A6:D0 4C   	BNE $91F4  
; call to code in a different bank ($0F:$FA32)
0x0191B8|$06:$91A8:20 32 FA	JSR $FA32  	; display string ID specified by next byte + #$0200

; code -> data
; indirect data load target
0x0191BB|$06:$91AB:C5	; String ID #$02C5: ‘Thou art welcome in my castle of Osterfair[.’][wait][line]‘If thou entertain me, thou shall receive a valuable prize[.’][wait][line]‘Dost thou wish to try?’[FD][FD][end-FC]

; data -> code
0x0191BC|$06:$91AC:20 D0 9A	JSR $9AD0  	; open YES/NO menu, return selected option in A
0x0191BF|$06:$91AF:C9 00   	CMP #$00   	; YES
0x0191C1|$06:$91B1:D0 3A   	BNE $91ED  
; call to code in a different bank ($0F:$FA32)
0x0191C3|$06:$91B3:20 32 FA	JSR $FA32  	; display string ID specified by next byte + #$0200

; code -> data
; indirect data load target
0x0191C6|$06:$91B6:C6	; String ID #$02C6: ‘Thou must go forth to the center of this Coliseum[.’][end-FC]

; data -> code
; call to code in a different bank ($0F:$D0F5)
0x0191C7|$06:$91B7:20 F5 D0	JSR $D0F5  	; wait for a while and then wipe menu regions #$03, #$00, and #$01
0x0191CA|$06:$91BA:A9 00   	LDA #$00   
0x0191CC|$06:$91BC:85 98   	STA $98    	; outcome of last fight?
0x0191CE|$06:$91BE:85 03   	STA $03    	; game clock?
; call to code in a different bank ($0F:$CABA)
0x0191D0|$06:$91C0:20 BA CA	JSR $CABA  
0x0191D3|$06:$91C3:4C 95 80	JMP $8095  	; wipe menus and exit COMMAND menu

; control flow target (from $919F)
0x0191D6|$06:$91C6:20 CB 9A	JSR $9ACB  	; open dialogue window
0x0191D9|$06:$91C9:AD 12 01	LDA $0112  	; Crests found bit field (#$10 = Life, #$80 = Water, #$04 = Moon, #$02 = Stars, #$01 = Sun)
0x0191DC|$06:$91CC:29 04   	AND #$04   	; Moon Crest
0x0191DE|$06:$91CE:D0 0C   	BNE $91DC  
; call to code in a different bank ($0F:$FA32)
0x0191E0|$06:$91D0:20 32 FA	JSR $FA32  	; display string ID specified by next byte + #$0200

; code -> data
; indirect data load target
0x0191E3|$06:$91D3:C7	; String ID #$02C7: ‘Thou hast done well[.’][wait][line]‘I shall give thee the Moon Crest[.’][wait][end-FC]

; data -> code
0x0191E4|$06:$91D4:A9 04   	LDA #$04   	; Moon Crest
0x0191E6|$06:$91D6:0D 12 01	ORA $0112  	; Crests found bit field (#$10 = Life, #$80 = Water, #$04 = Moon, #$02 = Stars, #$01 = Sun)
0x0191E9|$06:$91D9:8D 12 01	STA $0112  	; Crests found bit field (#$10 = Life, #$80 = Water, #$04 = Moon, #$02 = Stars, #$01 = Sun)
; control flow target (from $91CE)
; call to code in a different bank ($0F:$FA2E)
0x0191EC|$06:$91DC:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x0191EF|$06:$91DF:15	; String ID #$0115: ‘Thou must fight gallantly[.’][end-FC]

; data -> code
0x0191F0|$06:$91E0:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; control flow target (from $919D)
0x0191F3|$06:$91E3:20 CB 9A	JSR $9ACB  	; open dialogue window
; call to code in a different bank ($0F:$FA32)
0x0191F6|$06:$91E6:20 32 FA	JSR $FA32  	; display string ID specified by next byte + #$0200

; code -> data
; indirect data load target
0x0191F9|$06:$91E9:C9	; String ID #$02C9: ‘Thou art a poor excuse for a warrior[.’][wait][line]‘Get thee gone!’[end-FC]

; data -> code
0x0191FA|$06:$91EA:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; control flow target (from $91B1)
; call to code in a different bank ($0F:$FA32)
0x0191FD|$06:$91ED:20 32 FA	JSR $FA32  	; display string ID specified by next byte + #$0200

; code -> data
; indirect data load target
0x019200|$06:$91F0:C8	; String ID #$02C8: ‘That's unfortunate[.’][wait][line]‘Good bye[.’][end-FC]

; data -> code
0x019201|$06:$91F1:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; control flow target (from $91A6)
0x019204|$06:$91F4:20 D5 9A	JSR $9AD5  	; set A/$97 to ID of first living hero
; call to code in a different bank ($0F:$FC50)
0x019207|$06:$91F7:20 50 FC	JSR $FC50  	; print name of hero given by low 2 bits of A to $6119, terminated by #$FA
; call to code in a different bank ($0F:$FA32)
0x01920A|$06:$91FA:20 32 FA	JSR $FA32  	; display string ID specified by next byte + #$0200

; code -> data
; indirect data load target
0x01920D|$06:$91FD:EC	; String ID #$02EC: ‘Welcome back!’[wait][end-FC]

; data -> code
0x01920E|$06:$91FE:20 66 94	JSR $9466  	; display EXP to next level messages for entire party
; call to code in a different bank ($0F:$FA32)
0x019211|$06:$9201:20 32 FA	JSR $FA32  	; display string ID specified by next byte + #$0200

; code -> data
; indirect data load target
0x019214|$06:$9204:87	; String ID #$0287: ‘Dost thou wish to save thy deeds in the Imperial Scrolls of Honor?’[FD][FD][end-FC]

; data -> code
0x019215|$06:$9205:A9 03   	LDA #$03   	; Save Point ID #$03: Osterfair
0x019217|$06:$9207:85 48   	STA $48    	; last save point ID
0x019219|$06:$9209:20 5D A3	JSR $A35D  	; save game handler
; call to code in a different bank ($0F:$FA32)
0x01921C|$06:$920C:20 32 FA	JSR $FA32  	; display string ID specified by next byte + #$0200

; code -> data
; indirect data load target
0x01921F|$06:$920F:CA	; String ID #$02CA: [wait]‘Thy strength is that of many fearsome Hibabongos[.’][wait][line]‘The Moon Crest that I have given thee is just one of many tokens thou must collect[.’][end-FC]

; data -> code
0x019220|$06:$9210:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; handler for dialogue ID #$B1: crazy fortuneteller Wizard in NW Map ID #$0F: Osterfair
; indirect control flow target (via $8EA9)
; call to code in a different bank ($0F:$FA32)
0x019223|$06:$9213:20 32 FA	JSR $FA32  	; display string ID specified by next byte + #$0200

; code -> data
; indirect data load target
0x019226|$06:$9216:CB	; String ID #$02CB: ‘I'm a fortune-teller.[line]Art thou looking for something?’[FD][FD][end-FC]

; data -> code
0x019227|$06:$9217:20 D0 9A	JSR $9AD0  	; open YES/NO menu, return selected option in A
0x01922A|$06:$921A:C9 00   	CMP #$00   	; YES
0x01922C|$06:$921C:D0 28   	BNE $9246  
; call to code in a different bank ($0F:$C3AB)
0x01922E|$06:$921E:20 AB C3	JSR $C3AB  	; generate a random number and store it in $32-$33 (two passes)
0x019231|$06:$9221:A5 32   	LDA $32    	; RNG byte 0
0x019233|$06:$9223:05 33   	ORA $33    	; RNG byte 1
0x019235|$06:$9225:29 03   	AND #$03   	; 4 direction options to choose from
0x019237|$06:$9227:AA      	TAX        
0x019238|$06:$9228:E8      	INX        
0x019239|$06:$9229:AD 4E 92	LDA $924E  	; -> $06:$9250: Direction Names text
0x01923C|$06:$922C:85 0C   	STA $0C    
0x01923E|$06:$922E:AD 4F 92	LDA $924F  
0x019241|$06:$9231:85 0D   	STA $0D    
0x019243|$06:$9233:20 66 92	JSR $9266  	; given a pointer ($0C) and a number (one-based) in X, update $0C-$0D to the address of the start of the X'th string in ($0C)
0x019246|$06:$9236:A0 00   	LDY #$00   	; copy direction name to $5A
; control flow target (from $9240)
0x019248|$06:$9238:B1 0C   	LDA ($0C),Y
0x01924A|$06:$923A:99 5A 00	STA $005A,Y	; Crest/direction name write buffer start
0x01924D|$06:$923D:C8      	INY        
; [end-FA]
0x01924E|$06:$923E:C9 FA   	CMP #$FA   
0x019250|$06:$9240:D0 F6   	BNE $9238  	; if not end of string, loop to copy more data
0x019252|$06:$9242:A9 CC   	LDA #$CC   	; String ID #$02CC: ‘I'll tell thy fortune[.’][wait][line]‘That which thou seeks is [item-F9]!’[end-FC]
0x019254|$06:$9244:D0 02   	BNE $9248  
; control flow target (from $921C)
0x019256|$06:$9246:A9 CD   	LDA #$CD   	; String ID #$02CD: ‘So be it then.[line]I shall tell thee nothing[.’][end-FC]
; control flow target (from $9244)
; call to code in a different bank ($0F:$FA52)
0x019258|$06:$9248:20 52 FA	JSR $FA52  	; display string ID specified by A + #$0200
0x01925B|$06:$924B:4C 48 95	JMP $9548  	; end TALK/ITEM routines


; code -> data
; -> $06:$9250: Direction Names text
; data load target (from $9229)
0x01925E|$06:$924E:50
; data load target (from $922E)
0x01925F|$06:$924F:   92	; $06:$9250; Direction Names text
; Direction Names text
; indirect data load target (via $924E)
0x019260|$06:$9250:28 0A 1C 1D FA	; "East" + [end-FA]
; indirect data load target
0x019265|$06:$9255:3A 0E 1C 1D FA	; "West" + [end-FA]
; indirect data load target
0x01926A|$06:$925A:36 18 1E 1D 11 FA	; "South" + [end-FA]
; indirect data load target
0x019270|$06:$9260:31 18 1B 1D 11 FA	; "North" + [end-FA]

; data -> code
; given a pointer ($0C) and a number (one-based) in X, update $0C-$0D to the address of the start of the X'th string in ($0C)
; control flow target (from $9233, $9287)
0x019276|$06:$9266:A0 00   	LDY #$00   	; start at the current position of ($0C)
; control flow target (from $9277)
0x019278|$06:$9268:B1 0C   	LDA ($0C),Y
; [end-FA]
0x01927A|$06:$926A:C9 FA   	CMP #$FA   
0x01927C|$06:$926C:F0 0C   	BEQ $927A  	; found some end token
; [end-FC]
0x01927E|$06:$926E:C9 FC   	CMP #$FC   
0x019280|$06:$9270:F0 08   	BEQ $927A  	; found some end token
; [end-FF]
0x019282|$06:$9272:C9 FF   	CMP #$FF   
0x019284|$06:$9274:F0 04   	BEQ $927A  	; found some end token
0x019286|$06:$9276:C8      	INY        
0x019287|$06:$9277:4C 68 92	JMP $9268  

; found some end token
; control flow target (from $926C, $9270, $9274)
0x01928A|$06:$927A:CA      	DEX        	; number of strings to skip ahead + 1
0x01928B|$06:$927B:F0 0D   	BEQ $928A  	; if no more strings to skip, then ($0C) is correct and we're done
0x01928D|$06:$927D:98      	TYA        	; otherwise update $0C-$0D and loop to the next string
0x01928E|$06:$927E:38      	SEC        
0x01928F|$06:$927F:65 0C   	ADC $0C    
0x019291|$06:$9281:85 0C   	STA $0C    
0x019293|$06:$9283:90 02   	BCC $9287  
0x019295|$06:$9285:E6 0D   	INC $0D    
; control flow target (from $9283)
0x019297|$06:$9287:4C 66 92	JMP $9266  	; given a pointer ($0C) and a number (one-based) in X, update $0C-$0D to the address of the start of the X'th string in ($0C)

; control flow target (from $927B)
0x01929A|$06:$928A:60      	RTS        

; handler for dialogue IDs #$B2-#$B3: Dog in Map ID #$0F: Osterfair
; indirect control flow target (via $8EAB, $8EAD)
; call to code in a different bank ($0F:$FA32)
0x01929B|$06:$928B:20 32 FA	JSR $FA32  	; display string ID specified by next byte + #$0200

; code -> data
; indirect data load target
0x01929E|$06:$928E:CF	; String ID #$02CF: ‘Roarrrr[..][..]!’[end-FC]

; data -> code
0x01929F|$06:$928F:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; handler for dialogue ID #$B4: Dog in Map ID #$10: Zahan
; indirect control flow target (via $8EAF)
; call to code in a different bank ($0F:$FA32)
0x0192A2|$06:$9292:20 32 FA	JSR $FA32  	; display string ID specified by next byte + #$0200

; code -> data
; indirect data load target
0x0192A5|$06:$9295:D0	; String ID #$02D0: ‘Bow-wow-wow!’[end-FC]

; data -> code
0x0192A6|$06:$9296:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; handler for dialogue ID #$B5: Don Mahone in Map ID #$11: Tuhn
; indirect control flow target (via $8EB1)
0x0192A9|$06:$9299:A5 CD   	LDA $CD    	; Don Mahone quest status (#$00 = not started, #$01 = ingredients delivered, #$03 = game loaded after ingredients delivered)
0x0192AB|$06:$929B:F0 1D   	BEQ $92BA  
0x0192AD|$06:$929D:C9 03   	CMP #$03   
0x0192AF|$06:$929F:D0 0D   	BNE $92AE  
0x0192B1|$06:$92A1:A9 02   	LDA #$02   	; Moonbrooke
0x0192B3|$06:$92A3:85 97   	STA $97    	; subject hero ID $97
0x0192B5|$06:$92A5:A9 13   	LDA #$13   	; Item ID #$13: Water Flying Cloth
0x0192B7|$06:$92A7:85 96   	STA $96    	; temp storage for item/spell/type/etc. IDs
0x0192B9|$06:$92A9:20 7E 8D	JSR $8D7E  	; given hero ID in $97 and item ID in $96, try to add item to first empty slot in hero's inventory; SEC if added, CLC if no empty slots
0x0192BC|$06:$92AC:B0 04   	BCS $92B2  
; control flow target (from $929F)
0x0192BE|$06:$92AE:A9 D5   	LDA #$D5   	; String ID #$02D5: ‘Sorry.[line]I haven't finished it yet.[line]Please be patient[.’][end-FC]
0x0192C0|$06:$92B0:D0 46   	BNE $92F8  	; display string, end TALK routine
; control flow target (from $92AC)
0x0192C2|$06:$92B2:A9 00   	LDA #$00   
0x0192C4|$06:$92B4:85 CD   	STA $CD    	; Don Mahone quest status (#$00 = not started, #$01 = ingredients delivered, #$03 = game loaded after ingredients delivered)
0x0192C6|$06:$92B6:A9 D6   	LDA #$D6   	; String ID #$02D6: ‘Hello.[line]I've just finished[.’][wait][line]‘See that the princess wears this[.’][end-FC]
0x0192C8|$06:$92B8:D0 3E   	BNE $92F8  	; display string, end TALK routine
; control flow target (from $929B)
0x0192CA|$06:$92BA:A9 2C   	LDA #$2C   	; Item ID #$2C: Dew’s Yarn
0x0192CC|$06:$92BC:20 69 A3	JSR $A369  	; check for item A in party inventory, returning inventory index of item in A/X if found, #$FF if not
0x0192CF|$06:$92BF:30 26   	BMI $92E7  
0x0192D1|$06:$92C1:A9 2D   	LDA #$2D   	; Item ID #$2D: Magic Loom
0x0192D3|$06:$92C3:20 69 A3	JSR $A369  	; check for item A in party inventory, returning inventory index of item in A/X if found, #$FF if not
0x0192D6|$06:$92C6:30 1F   	BMI $92E7  
0x0192D8|$06:$92C8:20 A7 94	JSR $94A7  	; X = A mod 8, A = A / 8
0x0192DB|$06:$92CB:85 9C   	STA $9C    	; hero ID
0x0192DD|$06:$92CD:A9 2D   	LDA #$2D   	; Item ID #$2D: Magic Loom
; call to code in a different bank ($0F:$C4B6)
0x0192DF|$06:$92CF:20 B6 C4	JSR $C4B6  	; given a hero ID in $9C and an item ID in A, remove that item from hero's inventory if present and SEC, CLC otherwise
0x0192E2|$06:$92D2:A9 2C   	LDA #$2C   	; Item ID #$2C: Dew’s Yarn
0x0192E4|$06:$92D4:48      	PHA        	; Item ID #$2C: Dew’s Yarn
0x0192E5|$06:$92D5:20 69 A3	JSR $A369  	; check for item A in party inventory, returning inventory index of item in A/X if found, #$FF if not
0x0192E8|$06:$92D8:20 A7 94	JSR $94A7  	; X = A mod 8, A = A / 8
0x0192EB|$06:$92DB:85 9C   	STA $9C    	; hero ID
0x0192ED|$06:$92DD:68      	PLA        	; Item ID #$2C: Dew’s Yarn
; call to code in a different bank ($0F:$C4B6)
0x0192EE|$06:$92DE:20 B6 C4	JSR $C4B6  	; given a hero ID in $9C and an item ID in A, remove that item from hero's inventory if present and SEC, CLC otherwise
0x0192F1|$06:$92E1:E6 CD   	INC $CD    	; Don Mahone quest status (#$00 = not started, #$01 = ingredients delivered, #$03 = game loaded after ingredients delivered)
0x0192F3|$06:$92E3:A9 D4   	LDA #$D4   	; String ID #$02D4: ‘Ah, so thou has found my loom, and the Dew's Yarn, too[.’][wait][line]‘I shall weave thee a Water Flying Cloth, but it will take time[.’][wait][line]‘Please come back in a day or so[.’][end-FC]
0x0192F5|$06:$92E5:D0 11   	BNE $92F8  	; display string, end TALK routine
; control flow target (from $92BF, $92C6)
; call to code in a different bank ($0F:$FA32)
0x0192F7|$06:$92E7:20 32 FA	JSR $FA32  	; display string ID specified by next byte + #$0200

; code -> data
; indirect data load target
0x0192FA|$06:$92EA:D1	; String ID #$02D1: ‘Yes, I am Don Mahone. Once I was a famous weaver, but my loom was stolen[.’][wait][line]‘Will thou help me?’[FD][FD][end-FC]

; data -> code
0x0192FB|$06:$92EB:20 D0 9A	JSR $9AD0  	; open YES/NO menu, return selected option in A
0x0192FE|$06:$92EE:C9 00   	CMP #$00   	; YES
0x019300|$06:$92F0:D0 04   	BNE $92F6  
0x019302|$06:$92F2:A9 D2   	LDA #$D2   	; String ID #$02D2: ‘Good, good.[line]All I can tell thee is that the loom was taken by someone who smelled like fish[.’][end-FC]
0x019304|$06:$92F4:D0 02   	BNE $92F8  	; display string, end TALK routine
; control flow target (from $92F0)
0x019306|$06:$92F6:A9 D3   	LDA #$D3   	; String ID #$02D3: ‘That's too bad.[line]We could help each other[.’][end-FC]
; display string, end TALK routine
; control flow target (from $92B0, $92B8, $92E5, $92F4)
; call to code in a different bank ($0F:$FA52)
0x019308|$06:$92F8:20 52 FA	JSR $FA52  	; display string ID specified by A + #$0200
0x01930B|$06:$92FB:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; handler for dialogue ID #$B6: Roge Fastfinger in NE Map ID #$14: Wellgarth Underground
; indirect control flow target (via $8EB3)
0x01930E|$06:$92FE:A5 CE   	LDA $CE    	; Tuhn Watergate open flag (#$00 = closed, #$01 = open)
0x019310|$06:$9300:D0 22   	BNE $9324  
0x019312|$06:$9302:A9 3A   	LDA #$3A   	; Item ID #$3A: Watergate Key
0x019314|$06:$9304:85 96   	STA $96    	; temp storage for item/spell/type/etc. IDs
0x019316|$06:$9306:20 69 A3	JSR $A369  	; check for item A in party inventory, returning inventory index of item in A/X if found, #$FF if not
0x019319|$06:$9309:10 19   	BPL $9324  
; call to code in a different bank ($0F:$FA32)
0x01931B|$06:$930B:20 32 FA	JSR $FA32  	; display string ID specified by next byte + #$0200

; code -> data
; indirect data load target
0x01931E|$06:$930E:D7	; String ID #$02D7: ‘Curses, I am found!’[wait][line]‘Yes, I am Roge Fastfinger and here is the watergate key[.’][end-FC]

; data -> code
0x01931F|$06:$930F:A9 00   	LDA #$00   	; Midenhall
; control flow target (from $931E)
0x019321|$06:$9311:85 97   	STA $97    	; subject hero ID $97
0x019323|$06:$9313:20 7E 8D	JSR $8D7E  	; given hero ID in $97 and item ID in $96, try to add item to first empty slot in hero's inventory; SEC if added, CLC if no empty slots
0x019326|$06:$9316:B0 11   	BCS $9329  
0x019328|$06:$9318:E6 97   	INC $97    	; subject hero ID $97
0x01932A|$06:$931A:A5 97   	LDA $97    	; subject hero ID $97
0x01932C|$06:$931C:C9 03   	CMP #$03   	; max of 3 heroes
0x01932E|$06:$931E:D0 F1   	BNE $9311  	; if more heroes to check, check them
0x019330|$06:$9320:A9 D8   	LDA #$D8   	; String ID #$02D8: [wait]‘But thou hast many things.[line]See me again later[.’][end-FC]
0x019332|$06:$9322:D0 02   	BNE $9326  
; control flow target (from $9300, $9309)
0x019334|$06:$9324:A9 D9   	LDA #$D9   	; String ID #$02D9: ‘I'm sorry; I will not do that anymore[.’][end-FC]
; control flow target (from $9322)
; call to code in a different bank ($0F:$FA52)
0x019336|$06:$9326:20 52 FA	JSR $FA52  	; display string ID specified by A + #$0200
; control flow target (from $9316)
0x019339|$06:$9329:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; handler for dialogue IDs #$B7-#$B9: Priest in Map ID #$15: Beran
; indirect control flow target (via $8EB5, $8EB7, $8EB9)
0x01933C|$06:$932C:A5 CA   	LDA $CA    	; Cannock runaround quest status (0 = start of game, 0 -> 1 = talked to King Cannock, 1 -> 2 = said YES to seeking Cannock in Spring of Bravery, 2 -> 3 = talked to King Midenhall; adding Cannock sets this to 3; some code checks for 4)
0x01933E|$06:$932E:C9 04   	CMP #$04   
0x019340|$06:$9330:B0 04   	BCS $9336  
0x019342|$06:$9332:A9 E1   	LDA #$E1   	; String ID #$02E1: ‘I see that thou hast faced many dangers and the greatest lie ahead[.’][end-FC]
0x019344|$06:$9334:D0 02   	BNE $9338  
; control flow target (from $9330)
0x019346|$06:$9336:A9 E2   	LDA #$E2   	; String ID #$02E2: ‘Welcome, [name]!’[wait][end-FC]
; control flow target (from $9334)
; call to code in a different bank ($0F:$FA52)
0x019348|$06:$9338:20 52 FA	JSR $FA52  	; display string ID specified by A + #$0200
0x01934B|$06:$933B:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; handler for dialogue ID #$BA: Monster in Map ID #$16: Hargon's Castle 1F
; indirect control flow target (via $8EBB)
; call to code in a different bank ($0F:$FA32)
0x01934E|$06:$933E:20 32 FA	JSR $FA32  	; display string ID specified by next byte + #$0200

; code -> data
; indirect data load target
0x019351|$06:$9341:E3	; String ID #$02E3: ‘The fool's false paradise suited thee better[.’][wait][line]‘Thou shall regret meddling in Hargon's affairs[.’][end-FC]

; data -> code
; call to code in a different bank ($0F:$D1C6)
0x019352|$06:$9342:20 C6 D1	JSR $D1C6  
0x019355|$06:$9345:4C 95 80	JMP $8095  	; wipe menus and exit COMMAND menu

; handler for dialogue ID #$BB: Hargon in Map ID #$17: Hargon's Castle 7F
; indirect control flow target (via $8EBD)
; call to code in a different bank ($0F:$FA32)
0x019358|$06:$9348:20 32 FA	JSR $FA32  	; display string ID specified by next byte + #$0200

; code -> data
; indirect data load target
0x01935B|$06:$934B:E4	; String ID #$02E4: ‘Who comes hither to disturb the Great Hargon?’[wait][line]‘Dost thou know who I am?’[FD][FD][end-FC]

; data -> code
0x01935C|$06:$934C:20 D0 9A	JSR $9AD0  	; open YES/NO menu, return selected option in A
0x01935F|$06:$934F:C9 00   	CMP #$00   	; YES
0x019361|$06:$9351:D0 04   	BNE $9357  
0x019363|$06:$9353:A9 E5   	LDA #$E5   	; String ID #$02E5: ‘Such audacity is unforgivable!’[end-FC]
0x019365|$06:$9355:D0 02   	BNE $9359  
; control flow target (from $9351)
0x019367|$06:$9357:A9 E6   	LDA #$E6   	; String ID #$02E6: ‘Then I shall teach the proper respect!’[end-FC]
; control flow target (from $9355)
; call to code in a different bank ($0F:$FA52)
0x019369|$06:$9359:20 52 FA	JSR $FA52  	; display string ID specified by A + #$0200
; call to code in a different bank ($0F:$D0F5)
0x01936C|$06:$935C:20 F5 D0	JSR $D0F5  	; wait for a while and then wipe menu regions #$03, #$00, and #$01
; call to code in a different bank ($0F:$D1F8)
0x01936F|$06:$935F:20 F8 D1	JSR $D1F8  	; trigger Fixed Battle #$0B: 1 Hargon (Map ID #$17: Hargon's Castle 7F)
0x019372|$06:$9362:A5 98   	LDA $98    	; outcome of last fight?
0x019374|$06:$9364:C9 FC   	CMP #$FC   
0x019376|$06:$9366:F0 14   	BEQ $937C  
; call to code in a different bank ($0F:$F6F6)
0x019378|$06:$9368:20 F6 F6	JSR $F6F6  	; open main dialogue window and display string ID specified by byte following JSR + #$0200

; code -> data
; indirect data load target
0x01937B|$06:$936B:E7	; String ID #$02E7: ‘So thou hast proven a mighty warrior, mightier even than Hargon the Great[.’][wait][line]‘But there is one even greater than I, a sorcerer of the Shadowtime,[wait][line]a being of pure malice that none shall overcome[.’][wait][line]‘I send thee now to meet Malroth!’[end-FC]

; data -> code
0x01937C|$06:$936C:A9 FF   	LDA #$FF   
0x01937E|$06:$936E:8D 61 05	STA $0561  	; NPC #$04 sprite ID
; call to code in a different bank ($0F:$CF64)
0x019381|$06:$9371:20 64 CF	JSR $CF64  
; call to code in a different bank ($0F:$D0F5)
0x019384|$06:$9374:20 F5 D0	JSR $D0F5  	; wait for a while and then wipe menu regions #$03, #$00, and #$01
0x019387|$06:$9377:A9 64   	LDA #$64   
0x019389|$06:$9379:85 44   	STA $44    	; non-saved event status (#$00 = event start, #$01 = Lianport Gremlins defeated, #$02 = met with Lianport grandfather/have no friends at Shrine SW of Cannock, #$03 = King Midenhall moved to stairs, #$04 = King Midenhall moved down stairs, #$05 = King Midenhall spoke on Midenhall 1F, #$0B = Lighthouse Wizard 7F, #$1B Lighthouse Wizard 2F spoke, #$64 = Hargon dead, #$FF = event end)
0x01938B|$06:$937B:60      	RTS        

; control flow target (from $9366)
0x01938C|$06:$937C:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; handler for dialogue ID #$BC: Dragonlord's Grandson in Map ID #$18: Charlock Castle B8
; indirect control flow target (via $8EBF)
0x01938F|$06:$937F:A9 00   	LDA #$00   	; Midenhall
; call to code in a different bank ($0F:$FC50)
0x019391|$06:$9381:20 50 FC	JSR $FC50  	; print name of hero given by low 2 bits of A to $6119, terminated by #$FA
; call to code in a different bank ($0F:$FA32)
0x019394|$06:$9384:20 32 FA	JSR $FA32  	; display string ID specified by next byte + #$0200

; code -> data
; indirect data load target
0x019397|$06:$9387:EA	; String ID #$02EA: ‘Welcome, [name][.’][wait][line]‘All that Hargon threatens to take is really mine, for I am the grandson of the Dragonlord[.’][wait][line]‘Defeat Hargon and I will give thee advice.[line]Will thou do this?’[FD][FD][end-FC]

; data -> code
0x019398|$06:$9388:20 D0 9A	JSR $9AD0  	; open YES/NO menu, return selected option in A
0x01939B|$06:$938B:C9 00   	CMP #$00   	; YES
0x01939D|$06:$938D:D0 04   	BNE $9393  
0x01939F|$06:$938F:A9 F0   	LDA #$F0   	; String ID #$02F0: ‘Once thou hast the five crests, seek out the good wizard, Rubiss,[wait][line]who dwells in the depths of the sea south of Midenhall[.’][end-FC]
0x0193A1|$06:$9391:D0 02   	BNE $9395  
; control flow target (from $938D)
0x0193A3|$06:$9393:A9 F1   	LDA #$F1   	; String ID #$02F1: ‘Thou art surely missing thy brain.[line]But it is up to thee[.’][end-FC]
; control flow target (from $9391)
; call to code in a different bank ($0F:$FA52)
0x0193A5|$06:$9395:20 52 FA	JSR $FA52  	; display string ID specified by A + #$0200
0x0193A8|$06:$9398:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; handler for dialogue ID #$BD: Guard in Map ID #$1A: Shrine SW of Cannock
; indirect control flow target (via $8EC1)
0x0193AB|$06:$939B:A9 BD   	LDA #$BD   	; dialogue ID
0x0193AD|$06:$939D:D0 02   	BNE $93A1  
; handler for dialogue ID #$BE: Guard in Map ID #$1A: Shrine SW of Cannock
; indirect control flow target (via $8EC3)
0x0193AF|$06:$939F:A9 BE   	LDA #$BE   	; dialogue ID
; control flow target (from $939D)
0x0193B1|$06:$93A1:85 49   	STA $49    	; object hero/target/item/string ID $49
; call to code in a different bank ($0F:$F6CE)
0x0193B3|$06:$93A3:20 CE F6	JSR $F6CE  	; return number of party members - 1 in A/X
0x0193B6|$06:$93A6:D0 0E   	BNE $93B6  	; if Midenhall is alone, he can't pass
0x0193B8|$06:$93A8:A5 49   	LDA $49    	; object hero/target/item/string ID $49
0x0193BA|$06:$93AA:C9 BD   	CMP #$BD   
0x0193BC|$06:$93AC:D0 04   	BNE $93B2  
0x0193BE|$06:$93AE:A9 F3   	LDA #$F3   	; String ID #$02F3: ‘It is dangerous to tread some roads alone[.’][end-FC]
0x0193C0|$06:$93B0:D0 06   	BNE $93B8  
; control flow target (from $93AC)
0x0193C2|$06:$93B2:A9 F4   	LDA #$F4   	; String ID #$02F4: ‘The King of Cannock has left orders that none shall pass alone[.’][end-FC]
0x0193C4|$06:$93B4:D0 02   	BNE $93B8  
; control flow target (from $93A6)
0x0193C6|$06:$93B6:A9 EB   	LDA #$EB   	; String ID #$02EB: ‘Please go through[.’][end-FC]
; control flow target (from $93B0, $93B4)
; call to code in a different bank ($0F:$FA52)
0x0193C8|$06:$93B8:20 52 FA	JSR $FA52  	; display string ID specified by A + #$0200
0x0193CB|$06:$93BB:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; handler for dialogue ID #$BF: Wizard in Map ID #$1C: Shrine SE of Rimuldar
; indirect control flow target (via $8EC5)
0x0193CE|$06:$93BE:A9 23   	LDA #$23   	; Item ID #$23: Helmet of Erdrick
0x0193D0|$06:$93C0:20 69 A3	JSR $A369  	; check for item A in party inventory, returning inventory index of item in A/X if found, #$FF if not
0x0193D3|$06:$93C3:30 04   	BMI $93C9  
0x0193D5|$06:$93C5:A9 F7   	LDA #$F7   	; String ID #$02F7: ‘Thou hast no further business here. Go[.’][end-FC]
0x0193D7|$06:$93C7:D0 12   	BNE $93DB  
; control flow target (from $93C3)
0x0193D9|$06:$93C9:A9 24   	LDA #$24   	; Item ID #$24: Token of Erdrick
0x0193DB|$06:$93CB:20 69 A3	JSR $A369  	; check for item A in party inventory, returning inventory index of item in A/X if found, #$FF if not
0x0193DE|$06:$93CE:10 04   	BPL $93D4  
0x0193E0|$06:$93D0:A9 F5   	LDA #$F5   	; String ID #$02F5: ‘The real descendant of Erdrick carries a token to prove his heritage[.’][wait][line]‘Now be off with thee, imposter[.’][end-FC]
0x0193E2|$06:$93D2:D0 07   	BNE $93DB  
; control flow target (from $93CE)
0x0193E4|$06:$93D4:A9 23   	LDA #$23   	; Item ID #$23: Helmet of Erdrick
0x0193E6|$06:$93D6:9D 00 06	STA $0600,X	; Midenhall inventory item 1 (| #$40 if equipped)
0x0193E9|$06:$93D9:A9 F6   	LDA #$F6   	; String ID #$02F6: ‘I have been waiting for thee to come[.’][wait][line]‘I will trade the Helmet of Erdrick for the token thou carries[.’][end-FC]
; control flow target (from $93C7, $93D2)
; call to code in a different bank ($0F:$FA52)
0x0193EB|$06:$93DB:20 52 FA	JSR $FA52  	; display string ID specified by A + #$0200
0x0193EE|$06:$93DE:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; handler for dialogue ID #$C0: Wizard in Map ID #$15: Beran
; indirect control flow target (via $8EC7)
0x0193F1|$06:$93E1:A9 04   	LDA #$04   	; Save Point ID #$04: Beran
; update save point $48 to A, run through the whole save point sequence
; control flow target (from $81C2)
0x0193F3|$06:$93E3:85 48   	STA $48    	; last save point ID
0x0193F5|$06:$93E5:20 D5 9A	JSR $9AD5  	; set A/$97 to ID of first living hero
; call to code in a different bank ($0F:$FC50)
0x0193F8|$06:$93E8:20 50 FC	JSR $FC50  	; print name of hero given by low 2 bits of A to $6119, terminated by #$FA
; call to code in a different bank ($0F:$FA32)
0x0193FB|$06:$93EB:20 32 FA	JSR $FA32  	; display string ID specified by next byte + #$0200

; code -> data
; indirect data load target
0x0193FE|$06:$93EE:F8	; String ID #$02F8: ‘Even here thou can record thy deeds in the Imperial Scrolls of Honor[.’][wait][end-FC]

; data -> code
0x0193FF|$06:$93EF:20 66 94	JSR $9466  	; display EXP to next level messages for entire party
; call to code in a different bank ($0F:$FA32)
0x019402|$06:$93F2:20 32 FA	JSR $FA32  	; display string ID specified by next byte + #$0200

; code -> data
; indirect data load target
0x019405|$06:$93F5:87	; String ID #$0287: ‘Dost thou wish to save thy deeds in the Imperial Scrolls of Honor?’[FD][FD][end-FC]

; data -> code
0x019406|$06:$93F6:20 5D A3	JSR $A35D  	; save game handler
; call to code in a different bank ($0F:$FA32)
0x019409|$06:$93F9:20 32 FA	JSR $FA32  	; display string ID specified by next byte + #$0200

; code -> data
; indirect data load target
0x01940C|$06:$93FC:F9	; String ID #$02F9: [wait]‘Return when in need[.’][end-FC]

; data -> code
0x01940D|$06:$93FD:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; handler for dialogue ID #$C1: Priest in Map ID #$1F: Rhone Shrine
; indirect control flow target (via $8EC9)
0x019410|$06:$9400:20 D5 9A	JSR $9AD5  	; set A/$97 to ID of first living hero
0x019413|$06:$9403:48      	PHA        	; ID of first living hero at start of conversation
; call to code in a different bank ($0F:$FC50)
0x019414|$06:$9404:20 50 FC	JSR $FC50  	; print name of hero given by low 2 bits of A to $6119, terminated by #$FA
; call to code in a different bank ($0F:$FA32)
0x019417|$06:$9407:20 32 FA	JSR $FA32  	; display string ID specified by next byte + #$0200

; code -> data
; indirect data load target
0x01941A|$06:$940A:FA	; String ID #$02FA: ‘May the light shine upon thee, [name][.’][FD][FD][end-FC]

; data -> code
; call to code in a different bank ($0F:$C515)
0x01941B|$06:$940B:20 15 C5	JSR $C515  	; flash screen 10 times
0x01941E|$06:$940E:A9 84   	LDA #$84   	; everybody's alive and in your party!
0x019420|$06:$9410:8D 2D 06	STA $062D  	; Midenhall status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence)
0x019423|$06:$9413:8D 3F 06	STA $063F  	; Cannock status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence)
0x019426|$06:$9416:8D 51 06	STA $0651  	; Moonbrooke status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence)
; call to code in a different bank ($0F:$C77B)
0x019429|$06:$9419:20 7B C7	JSR $C77B  	; restore full HP/MP to all living party members
0x01942C|$06:$941C:A9 00   	LDA #$00   
0x01942E|$06:$941E:85 97   	STA $97    	; subject hero ID $97
; call to code in a different bank ($0F:$D302)
0x019430|$06:$9420:20 02 D3	JSR $D302  
0x019433|$06:$9423:A9 01   	LDA #$01   
0x019435|$06:$9425:85 97   	STA $97    	; subject hero ID $97
; call to code in a different bank ($0F:$D302)
0x019437|$06:$9427:20 02 D3	JSR $D302  
0x01943A|$06:$942A:A9 02   	LDA #$02   
0x01943C|$06:$942C:85 97   	STA $97    	; subject hero ID $97
; call to code in a different bank ($0F:$D302)
0x01943E|$06:$942E:20 02 D3	JSR $D302  
; call to code in a different bank ($0F:$C22C)
0x019441|$06:$9431:20 2C C2	JSR $C22C  
0x019444|$06:$9434:20 66 94	JSR $9466  	; display EXP to next level messages for entire party
; call to code in a different bank ($0F:$FA32)
0x019447|$06:$9437:20 32 FA	JSR $FA32  	; display string ID specified by next byte + #$0200

; code -> data
; indirect data load target
0x01944A|$06:$943A:87	; String ID #$0287: ‘Dost thou wish to save thy deeds in the Imperial Scrolls of Honor?’[FD][FD][end-FC]

; data -> code
0x01944B|$06:$943B:A9 05   	LDA #$05   	; Save Point ID #$05: Rhone Shrine
0x01944D|$06:$943D:85 48   	STA $48    	; last save point ID
0x01944F|$06:$943F:20 5D A3	JSR $A35D  	; save game handler
0x019452|$06:$9442:68      	PLA        	; ID of first living hero at start of conversation
; call to code in a different bank ($0F:$FC50)
0x019453|$06:$9443:20 50 FC	JSR $FC50  	; print name of hero given by low 2 bits of A to $6119, terminated by #$FA
; call to code in a different bank ($0F:$FA32)
0x019456|$06:$9446:20 32 FA	JSR $FA32  	; display string ID specified by next byte + #$0200

; code -> data
; indirect data load target
0x019459|$06:$9449:FB	; String ID #$02FB: [wait]‘Go now, [name][.’][end-FC]

; data -> code
0x01945A|$06:$944A:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; handler for dialogue ID #$C2: Priest in Map ID #$20: Shrine SW of Moonbrooke
; indirect control flow target (via $8ECB)
0x01945D|$06:$944D:A9 02   	LDA #$02   	; Moonbrooke
0x01945F|$06:$944F:85 97   	STA $97    	; subject hero ID $97
0x019461|$06:$9451:A9 04   	LDA #$04   	; In Party
0x019463|$06:$9453:20 9A 8D	JSR $8D9A  	; given hero ID in $97, and status in A, SEC if hero has that status, CLC otherwise
0x019466|$06:$9456:B0 07   	BCS $945F  
; call to code in a different bank ($0F:$FA32)
0x019468|$06:$9458:20 32 FA	JSR $FA32  	; display string ID specified by next byte + #$0200

; code -> data
0x01946B|$06:$945B:FC	; String ID #$02FC: ‘None shall pass until aid has been rendered to the Princess of Moonbrooke[.’][end-FC]

; data -> code
0x01946C|$06:$945C:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; control flow target (from $9456)
; call to code in a different bank ($0F:$FA32)
0x01946F|$06:$945F:20 32 FA	JSR $FA32  	; display string ID specified by next byte + #$0200

; code -> data
; indirect data load target
0x019472|$06:$9462:00	; String ID #$0200: ‘When in need, visit the Houses of Healing[.’][end-FC]

; data -> code
0x019473|$06:$9463:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; display EXP to next level messages for entire party
; control flow target (from $8ED9, $8F15, $8F5C, $8FDB, $9182, $91FE, $93EF, $9434)
0x019476|$06:$9466:A9 00   	LDA #$00   	; Midenhall
0x019478|$06:$9468:85 97   	STA $97    	; subject hero ID $97
; control flow target (from $9490)
0x01947A|$06:$946A:A9 04   	LDA #$04   	; In Party
0x01947C|$06:$946C:20 9A 8D	JSR $8D9A  	; given hero ID in $97, and status in A, SEC if hero has that status, CLC otherwise
; skip if not in party
0x01947F|$06:$946F:90 19   	BCC $948A  
0x019481|$06:$9471:A5 97   	LDA $97    	; subject hero ID $97
; call to code in a different bank ($0F:$F734)
0x019483|$06:$9473:20 34 F7	JSR $F734  	; set $8F-$90 to EXP required to reach next level
0x019486|$06:$9476:20 25 8D	JSR $8D25  	; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA
0x019489|$06:$9479:A5 8F   	LDA $8F    
0x01948B|$06:$947B:05 90   	ORA $90    
0x01948D|$06:$947D:D0 07   	BNE $9486  	; different messages depending on whether you're at max EXP or not
; call to code in a different bank ($0F:$FA2A)
0x01948F|$06:$947F:20 2A FA	JSR $FA2A  	; display string ID specified by next byte

; code -> data
; indirect data load target
0x019492|$06:$9482:52	; String ID #$0052: ‘[name] is now strong enough[.’][wait][end-FC]

; data -> code
0x019493|$06:$9483:4C 8A 94	JMP $948A  

; control flow target (from $947D)
; call to code in a different bank ($0F:$FA32)
0x019496|$06:$9486:20 32 FA	JSR $FA32  	; display string ID specified by next byte + #$0200

; code -> data
; indirect data load target
0x019499|$06:$9489:8F	; String ID #$028F: ‘Of experience points [name] needs [number] to reach the next level[.’][wait][end-FC]

; data -> code
; control flow target (from $946F, $9483)
0x01949A|$06:$948A:E6 97   	INC $97    	; subject hero ID $97
0x01949C|$06:$948C:A5 97   	LDA $97    	; subject hero ID $97
0x01949E|$06:$948E:C9 03   	CMP #$03   	; max of 3 heroes
0x0194A0|$06:$9490:90 D8   	BCC $946A  	; if more heroes to handle, handle them
0x0194A2|$06:$9492:60      	RTS        

; SEC if Moonbrooke in party, CLC otherwise
; control flow target (from $9095)
0x0194A3|$06:$9493:A9 02   	LDA #$02   	; Moonbrooke
0x0194A5|$06:$9495:85 97   	STA $97    	; subject hero ID $97
0x0194A7|$06:$9497:A9 04   	LDA #$04   	; In Party
0x0194A9|$06:$9499:20 9A 8D	JSR $8D9A  	; given hero ID in $97, and status in A, SEC if hero has that status, CLC otherwise
0x0194AC|$06:$949C:60      	RTS        

; SEC if Moonbrooke alive, CLC otherwise
; control flow target (from $9106, $9112)
0x0194AD|$06:$949D:A9 02   	LDA #$02   	; Moonbrooke
0x0194AF|$06:$949F:85 97   	STA $97    	; subject hero ID $97
0x0194B1|$06:$94A1:A9 80   	LDA #$80   	; Alive
0x0194B3|$06:$94A3:20 9A 8D	JSR $8D9A  	; given hero ID in $97, and status in A, SEC if hero has that status, CLC otherwise
0x0194B6|$06:$94A6:60      	RTS        

; X = A mod 8, A = A / 8
; control flow target (from $92C8, $92D8)
0x0194B7|$06:$94A7:48      	PHA        
0x0194B8|$06:$94A8:29 07   	AND #$07   
0x0194BA|$06:$94AA:AA      	TAX        
0x0194BB|$06:$94AB:68      	PLA        
0x0194BC|$06:$94AC:4A      	LSR        
0x0194BD|$06:$94AD:4A      	LSR        
0x0194BE|$06:$94AE:4A      	LSR        
0x0194BF|$06:$94AF:60      	RTS        

; handler for dialogue IDs #$C3-#$CC (open dialogue window and display string specified by A - #$73)
; control flow target (from $8205)
0x0194C0|$06:$94B0:38      	SEC        
0x0194C1|$06:$94B1:E9 73   	SBC #$73   	; convert to string ID
0x0194C3|$06:$94B3:48      	PHA        
0x0194C4|$06:$94B4:20 CB 9A	JSR $9ACB  	; open dialogue window
0x0194C7|$06:$94B7:68      	PLA        	; String IDs #$50-#$59: "‘Take care that thou strays not over the tower's edge[.’][end-FC]" / "‘As the full moon waxes and wanes so too the tide rises and falls[.’][end-FC]" / "‘[name] is now strong enough[.’][wait][end-FC]" / "And [cardinal #] [monster(s)][line]appeared.[end-FC]" / "[cardinal #] [monster(s)][line]appeared.[end-FC]" / "[end-FC]" / "[end-FC]" / "‘In ancient times a volcano rose from the seabed, and inside was a deep cavern[.’][end-FC]" / "[end-FC]" / "[end-FC]"
; call to code in a different bank ($0F:$FA4A)
0x0194C8|$06:$94B8:20 4A FA	JSR $FA4A  	; display string ID specified by A
0x0194CB|$06:$94BB:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; handler for dialogue IDs #$CD-#$CF (open dialogue window, display string specified by A - #$73, display YES/NO menu, and display string corresponding to selected option)
; control flow target (from $820C)
0x0194CE|$06:$94BE:38      	SEC        
0x0194CF|$06:$94BF:E9 CD   	SBC #$CD   	; why not just SBC #$73?
0x0194D1|$06:$94C1:18      	CLC        
0x0194D2|$06:$94C2:69 5A   	ADC #$5A   	; String IDs #$5A-#$5C: "‘Hast thou purified thy body in the Spring of Bravery?’[end-FC]" / "‘Dost thou know what I know?’[FD][FD][end-FC]" / "‘Hast thou found the Wizard's Home?’[FD][FD][end-FC]"
0x0194D4|$06:$94C4:85 49   	STA $49    	; object hero/target/item/string ID $49
0x0194D6|$06:$94C6:20 CB 9A	JSR $9ACB  	; open dialogue window
0x0194D9|$06:$94C9:A5 49   	LDA $49    	; object hero/target/item/string ID $49
; call to code in a different bank ($0F:$FA4A)
0x0194DB|$06:$94CB:20 4A FA	JSR $FA4A  	; display string ID specified by A
0x0194DE|$06:$94CE:20 D0 9A	JSR $9AD0  	; open YES/NO menu, return selected option in A
0x0194E1|$06:$94D1:C9 00   	CMP #$00   	; YES
0x0194E3|$06:$94D3:D0 04   	BNE $94D9  
0x0194E5|$06:$94D5:A9 03   	LDA #$03   	; String IDs #$5D-#$5F: "‘Then all is well[.’][end-FC]" / "‘But I have not yet spoken[.’][end-FC]" / "‘Go then, for thou must defeat Hargon[.’][end-FC]"
0x0194E7|$06:$94D7:D0 02   	BNE $94DB  
; control flow target (from $94D3)
0x0194E9|$06:$94D9:A9 06   	LDA #$06   	; String IDs #$60-#$62: "‘That is not good[.’][wait][line]‘All who seek victory must first visit the Spring of Bravery[.’][end-FC]" / "‘These twin towers are known as the Dragon's Horn[.’][end-FC]" / "‘Thou art close to the island cave wherein lies an object of great power and greater peril!’[end-FC]"
; control flow target (from $94D7)
0x0194EB|$06:$94DB:18      	CLC        
0x0194EC|$06:$94DC:65 49   	ADC $49    	; object hero/target/item/string ID $49
; call to code in a different bank ($0F:$FA4A)
0x0194EE|$06:$94DE:20 4A FA	JSR $FA4A  	; display string ID specified by A
0x0194F1|$06:$94E1:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; handler for dialogue IDs #$D0-#$D8 (dungeon NPCs with complex logic)
; control flow target (from $8213)
0x0194F4|$06:$94E4:48      	PHA        	; dialogue ID
0x0194F5|$06:$94E5:20 CB 9A	JSR $9ACB  	; open dialogue window
0x0194F8|$06:$94E8:68      	PLA        	; dialogue ID
0x0194F9|$06:$94E9:C9 D0   	CMP #$D0   	; dialogue ID #$D0: Wizard in Map ID #$40: Spring of Bravery
0x0194FB|$06:$94EB:D0 38   	BNE $9525  
; call to code in a different bank ($0F:$FA2A)
0x0194FD|$06:$94ED:20 2A FA	JSR $FA2A  	; display string ID specified by next byte

; code -> data
; indirect data load target
0x019500|$06:$94F0:6A	; String ID #$006A: ‘Welcome to the Spring of Bravery[.’][wait][end-FC]

; data -> code
0x019501|$06:$94F1:A5 CA   	LDA $CA    	; Cannock runaround quest status (0 = start of game, 0 -> 1 = talked to King Cannock, 1 -> 2 = said YES to seeking Cannock in Spring of Bravery, 2 -> 3 = talked to King Midenhall; adding Cannock sets this to 3; some code checks for 4)
0x019503|$06:$94F3:C9 01   	CMP #$01   
0x019505|$06:$94F5:F0 04   	BEQ $94FB  
0x019507|$06:$94F7:C9 02   	CMP #$02   
0x019509|$06:$94F9:D0 1A   	BNE $9515  
; control flow target (from $94F5)
; call to code in a different bank ($0F:$FA2A)
0x01950B|$06:$94FB:20 2A FA	JSR $FA2A  	; display string ID specified by next byte

; code -> data
; indirect data load target
0x01950E|$06:$94FE:64	; String ID #$0064: ‘Art thou seeking the Prince of Cannock?’[FD][FD][end-FC]

; data -> code
0x01950F|$06:$94FF:20 D0 9A	JSR $9AD0  	; open YES/NO menu, return selected option in A
0x019512|$06:$9502:C9 00   	CMP #$00   	; YES
0x019514|$06:$9504:D0 0F   	BNE $9515  
0x019516|$06:$9506:A5 CA   	LDA $CA    	; Cannock runaround quest status (0 = start of game, 0 -> 1 = talked to King Cannock, 1 -> 2 = said YES to seeking Cannock in Spring of Bravery, 2 -> 3 = talked to King Midenhall; adding Cannock sets this to 3; some code checks for 4)
0x019518|$06:$9508:C9 01   	CMP #$01   
0x01951A|$06:$950A:D0 02   	BNE $950E  
0x01951C|$06:$950C:E6 CA   	INC $CA    	; Cannock runaround quest status (0 = start of game, 0 -> 1 = talked to King Cannock, 1 -> 2 = said YES to seeking Cannock in Spring of Bravery, 2 -> 3 = talked to King Midenhall; adding Cannock sets this to 3; some code checks for 4)
; control flow target (from $950A)
; call to code in a different bank ($0F:$FA2A)
0x01951E|$06:$950E:20 2A FA	JSR $FA2A  	; display string ID specified by next byte

; code -> data
; indirect data load target
0x019521|$06:$9511:65	; String ID #$0065: ‘Only moments ago he was here.[line]I think he is going to Midenhall Castle[.’][end-FC]

; data -> code
0x019522|$06:$9512:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; control flow target (from $94F9, $9504)
; call to code in a different bank ($0F:$FA2A)
0x019525|$06:$9515:20 2A FA	JSR $FA2A  	; display string ID specified by next byte

; code -> data
; indirect data load target
0x019528|$06:$9518:63	; String ID #$0063: ‘I shall anoint thee with this water and wish thee well[.’][wait][line]‘Know that Token of Erdrick is kept by a brave hero[.’][end-FC]

; data -> code
; call to code in a different bank ($0F:$C515)
0x019529|$06:$9519:20 15 C5	JSR $C515  	; flash screen 10 times
0x01952C|$06:$951C:20 CC 8D	JSR $8DCC  	; restore full HP to all living party members
; call to code in a different bank ($0F:$C22C)
0x01952F|$06:$951F:20 2C C2	JSR $C22C  
0x019532|$06:$9522:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; control flow target (from $94EB)
0x019535|$06:$9525:C9 D1   	CMP #$D1   	; dialogue ID #$D1: Wizard in Map ID #$56: Lighthouse 7F
0x019537|$06:$9527:D0 07   	BNE $9530  
; call to code in a different bank ($0F:$FA2E)
0x019539|$06:$9529:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
0x01953C|$06:$952C:52	; String ID #$0152: ‘Follow me and do not make a peep[.’][end-FC]

; data -> code
0x01953D|$06:$952D:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; control flow target (from $9527)
0x019540|$06:$9530:C9 D6   	CMP #$D6   	; dialogue ID #$D6: Guard in Map ID ; Map ID #$57: Lighthouse 8F
0x019542|$06:$9532:D0 0B   	BNE $953F  
; call to code in a different bank ($0F:$FA2A)
0x019544|$06:$9534:20 2A FA	JSR $FA2A  	; display string ID specified by next byte

; code -> data
; indirect data load target
0x019547|$06:$9537:70	; String ID #$0070: ‘For long ages have I guarded the Chamber of Hargon[.’][wait][end-FC]

; data -> code
; call to code in a different bank ($0F:$FA2A)
0x019548|$06:$9538:20 2A FA	JSR $FA2A  	; display string ID specified by next byte

; code -> data
; indirect data load target
0x01954B|$06:$953B:71	; String ID #$0071: ‘There is a land called Rhone, high in the mountains in the middle of a great continent[.’][wait][line]‘There shall thou find Hargon[.’][end-FC]

; data -> code
0x01954C|$06:$953C:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; control flow target (from $9532)
0x01954F|$06:$953F:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; exit COMMAND menu
; control flow target (from $9560, $9569, $958A, $95B8, $9630, $99C8)
; call to code in a different bank ($0F:$FA89)
0x019552|$06:$9542:20 89 FA	JSR $FA89  	; useless JSR to RTS?!
0x019555|$06:$9545:4C 6D 80	JMP $806D  	; exit COMMAND menu

; end TALK/ITEM routines
; control flow target (from $8C40, $8CD1, $8E41, $8E67, $8F09, $8F36, $8F82, $8FA9, $8FC9, $9016, $903C, $9062, $9074, $9092, $909E, $90A5, $90BC, $90EC, $90FF, $910F, $914A, $916B, $9178, $9194, $91E0, $91EA, $91F1, $9210, $924B, $928F, $9296, $92FB, $9329, $933B, $937C, $9398, $93BB, $93DE, $93FD, $944A, $945C, $9463, $94BB, $94E1, $9512, $9522, $952D, $953C, $953F, $957B, $95A4, $9603, $966C, $967E, $96CD, $96F6, $9745, $9754, $97E6, $97F1, $980C, $9822, $983B, $9845, $984F, $9859, $9863, $986D, $9877, $9881, $988B, $9892, $99BE, $99EC, $99FD, $9A14, $9A44, $9A66, $9A81, $9ABA, $9AC1, $9AC8, $9B81, $9BA3, $9BB7, $9BEF, $9C02, $9C34, $9C5F, $9C90, $9CBE, $9D4C)
0x019558|$06:$9548:A5 8E   	LDA $8E    	; flag for in battle or not (#$FF)?
0x01955A|$06:$954A:10 01   	BPL $954D  
0x01955C|$06:$954C:60      	RTS        

; control flow target (from $954A)
0x01955D|$06:$954D:20 9D 80	JSR $809D  	; wait until all joypad buttons are released and then some button pressed
; call to code in a different bank ($0F:$FA89)
0x019560|$06:$9550:20 89 FA	JSR $FA89  	; useless JSR to RTS?!
0x019563|$06:$9553:A9 00   	LDA #$00   
; call to code in a different bank ($0F:$CF6A)
0x019565|$06:$9555:20 6A CF	JSR $CF6A  	; wipe selected menu region
0x019568|$06:$9558:4C 6D 80	JMP $806D  	; exit COMMAND menu

; COMMAND menu ITEM command handler
; indirect control flow target (via $808C)
; call to code in a different bank ($0F:$F55D)
0x01956B|$06:$955B:20 5D F5	JSR $F55D  	; display appropriate main ITEM hero select menu
0x01956E|$06:$955E:C9 FF   	CMP #$FF   
0x019570|$06:$9560:F0 E0   	BEQ $9542  	; exit COMMAND menu
0x019572|$06:$9562:85 97   	STA $97    	; subject hero ID $97
; call to code in a different bank ($0F:$F5FE)
0x019574|$06:$9564:20 FE F5	JSR $F5FE  	; given a hero ID in A, open hero's item list and return selected item ID (or #$FE if they have no items)
0x019577|$06:$9567:C9 FF   	CMP #$FF   
0x019579|$06:$9569:F0 D7   	BEQ $9542  	; exit COMMAND menu
0x01957B|$06:$956B:C9 FE   	CMP #$FE   
0x01957D|$06:$956D:D0 0F   	BNE $957E  	; hero has selected an item to use
0x01957F|$06:$956F:20 CB 9A	JSR $9ACB  	; open dialogue window
0x019582|$06:$9572:A5 97   	LDA $97    	; subject hero ID $97
; call to code in a different bank ($0F:$FC50)
0x019584|$06:$9574:20 50 FC	JSR $FC50  	; print name of hero given by low 2 bits of A to $6119, terminated by #$FA
; call to code in a different bank ($0F:$FA2E)
0x019587|$06:$9577:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x01958A|$06:$957A:13	; String ID #$0113: [name] does not yet have anything.[end-FC]

; data -> code
0x01958B|$06:$957B:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; hero has selected an item to use
; control flow target (from $956D)
0x01958E|$06:$957E:85 96   	STA $96    	; temp storage for item/spell/type/etc. IDs; item ID
0x019590|$06:$9580:85 95   	STA $95    	; ID for [item] and [spell] control codes; item ID
0x019592|$06:$9582:86 49   	STX $49    	; object hero/target/item/string ID $49
; call to code in a different bank ($0F:$EB76)
0x019594|$06:$9584:20 76 EB	JSR $EB76  	; open menu specified by next byte

; code -> data
; indirect data load target
0x019597|$06:$9587:17	; Menu ID #$17: Main menu: what to do with selected item

; data -> code
0x019598|$06:$9588:C9 FF   	CMP #$FF   
0x01959A|$06:$958A:F0 B6   	BEQ $9542  	; exit COMMAND menu
0x01959C|$06:$958C:C9 01   	CMP #$01   	; TRADE
0x01959E|$06:$958E:90 03   	BCC $9593  	; USE handler
0x0195A0|$06:$9590:4C A8 99	JMP $99A8  	; TRADE/THROW handler

; USE handler
; control flow target (from $958E)
0x0195A3|$06:$9593:A9 80   	LDA #$80   	; Alive
0x0195A5|$06:$9595:20 9A 8D	JSR $8D9A  	; given hero ID in $97, and status in A, SEC if hero has that status, CLC otherwise
0x0195A8|$06:$9598:B0 0D   	BCS $95A7  	; USE handler, hero alive
0x0195AA|$06:$959A:20 CB 9A	JSR $9ACB  	; open dialogue window
0x0195AD|$06:$959D:20 25 8D	JSR $8D25  	; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA
; call to code in a different bank ($0F:$FA2E)
0x0195B0|$06:$95A0:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x0195B3|$06:$95A3:1F	; String ID #$011F: Alas, being but a ghost, [name] cannot use the [item].[end-FC]

; data -> code
0x0195B4|$06:$95A4:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; USE handler, hero alive
; control flow target (from $9598)
0x0195B7|$06:$95A7:A5 96   	LDA $96    	; temp storage for item/spell/type/etc. IDs; item ID
0x0195B9|$06:$95A9:C9 3C   	CMP #$3C   	; Item ID #$3C: Medical Herb
0x0195BB|$06:$95AB:F0 04   	BEQ $95B1  	; USE Medical/Antidote Herb
0x0195BD|$06:$95AD:C9 3B   	CMP #$3B   	; Item ID #$3B: Antidote Herb
0x0195BF|$06:$95AF:D0 74   	BNE $9625  
; USE Medical/Antidote Herb
; control flow target (from $95AB)
; call to code in a different bank ($0F:$F587)
0x0195C1|$06:$95B1:20 87 F5	JSR $F587  	; display appropriate main ITEM target menu
0x0195C4|$06:$95B4:C9 FF   	CMP #$FF   
0x0195C6|$06:$95B6:D0 03   	BNE $95BB  
0x0195C8|$06:$95B8:4C 42 95	JMP $9542  	; exit COMMAND menu

; control flow target (from $95B6)
0x0195CB|$06:$95BB:85 C9   	STA $C9    	; target hero ID
0x0195CD|$06:$95BD:20 CB 9A	JSR $9ACB  	; open dialogue window
0x0195D0|$06:$95C0:20 25 8D	JSR $8D25  	; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA
0x0195D3|$06:$95C3:A5 97   	LDA $97    	; subject hero ID $97
0x0195D5|$06:$95C5:C5 C9   	CMP $C9    	; target hero ID
0x0195D7|$06:$95C7:F0 0D   	BEQ $95D6  	; use different strings depending on whether hero uses item on themself or another hero
; call to code in a different bank ($0F:$FA2E)
0x0195D9|$06:$95C9:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x0195DC|$06:$95CC:20	; String ID #$0120: [name] [end-FF]

; data -> code
0x0195DD|$06:$95CD:A5 C9   	LDA $C9    	; target hero ID
; call to code in a different bank ($0F:$FC50)
0x0195DF|$06:$95CF:20 50 FC	JSR $FC50  	; print name of hero given by low 2 bits of A to $6119, terminated by #$FA
0x0195E2|$06:$95D2:A9 1D   	LDA #$1D   	; String ID #$011D: used the [item] on [name].[end-FC]
0x0195E4|$06:$95D4:D0 02   	BNE $95D8  
; control flow target (from $95C7)
0x0195E6|$06:$95D6:A9 1E   	LDA #$1E   	; String ID #$011E: [name] used the [item].[end-FC]
; control flow target (from $95D4)
; call to code in a different bank ($0F:$FA4E)
0x0195E8|$06:$95D8:20 4E FA	JSR $FA4E  	; display string ID specified by A + #$0100
0x0195EB|$06:$95DB:A5 97   	LDA $97    	; subject hero ID $97
0x0195ED|$06:$95DD:48      	PHA        	; subject hero ID
0x0195EE|$06:$95DE:A5 C9   	LDA $C9    	; target hero ID
0x0195F0|$06:$95E0:85 97   	STA $97    	; subject hero ID $97
0x0195F2|$06:$95E2:A5 96   	LDA $96    	; temp storage for item/spell/type/etc. IDs; item ID
0x0195F4|$06:$95E4:C9 3C   	CMP #$3C   	; Item ID #$3C: Medical Herb
0x0195F6|$06:$95E6:D0 1E   	BNE $9606  	; USE Antidote Herb
0x0195F8|$06:$95E8:A9 80   	LDA #$80   	; Alive
0x0195FA|$06:$95EA:20 9A 8D	JSR $8D9A  	; given hero ID in $97, and status in A, SEC if hero has that status, CLC otherwise
0x0195FD|$06:$95ED:90 0A   	BCC $95F9  	; Medical Herbs can't heal dead people
0x0195FF|$06:$95EF:A5 C9   	LDA $C9    	; target hero ID
0x019601|$06:$95F1:A2 64   	LDX #$64   	; Healing Power on field for Medical Herb
; call to code in a different bank ($0F:$F72B)
0x019603|$06:$95F3:20 2B F7	JSR $F72B  	; heal hero ID in A by random amount based on healing power in X
; call to code in a different bank ($0F:$C22C)
0x019606|$06:$95F6:20 2C C2	JSR $C22C  
; control flow target (from $95ED, $960B, $961A)
0x019609|$06:$95F9:68      	PLA        	; subject hero ID
0x01960A|$06:$95FA:A6 49   	LDX $49    	; object hero/target/item/string ID $49
; call to code in a different bank ($0F:$C4D4)
0x01960C|$06:$95FC:20 D4 C4	JSR $C4D4  	; given hero ID in A and hero inventory offset in X, remove that item from hero's inventory and move all lower items up 1 slot
; call to code in a different bank ($0F:$EB76)
0x01960F|$06:$95FF:20 76 EB	JSR $EB76  	; open menu specified by next byte

; code -> data
; indirect data load target
0x019612|$06:$9602:01	; Menu ID #$01: Mini status window, top

; data -> code
0x019613|$06:$9603:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; USE Antidote Herb
; control flow target (from $95E6)
0x019616|$06:$9606:A9 80   	LDA #$80   	; Alive
0x019618|$06:$9608:20 9A 8D	JSR $8D9A  	; given hero ID in $97, and status in A, SEC if hero has that status, CLC otherwise
0x01961B|$06:$960B:90 EC   	BCC $95F9  	; Antidote Herbs can't heal dead people
0x01961D|$06:$960D:A5 C9   	LDA $C9    	; target hero ID
0x01961F|$06:$960F:20 AC 8D	JSR $8DAC  	; given hero ID in A, set Y to start of hero's data in $062D,Y, i.e. Y = A * #$12
0x019622|$06:$9612:A9 DF   	LDA #$DF   	; clear Poison
0x019624|$06:$9614:39 2D 06	AND $062D,Y	; Midenhall status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence)
0x019627|$06:$9617:99 2D 06	STA $062D,Y	; Midenhall status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence)
0x01962A|$06:$961A:4C F9 95	JMP $95F9  

; given hero ID in $97 and hero inventory offset in $49, remove that item from hero's inventory and move all lower items up 1 slot
; control flow target (from $9634, $965E, $967B, $9809)
0x01962D|$06:$961D:A5 97   	LDA $97    	; subject hero ID $97
0x01962F|$06:$961F:A6 49   	LDX $49    	; object hero/target/item/string ID $49
; call to code in a different bank ($0F:$C4D4)
0x019631|$06:$9621:20 D4 C4	JSR $C4D4  	; given hero ID in A and hero inventory offset in X, remove that item from hero's inventory and move all lower items up 1 slot
0x019634|$06:$9624:60      	RTS        

; control flow target (from $95AF)
0x019635|$06:$9625:C9 29   	CMP #$29   	; Item ID #$29: Leaf of The World Tree
0x019637|$06:$9627:D0 25   	BNE $964E  
; call to code in a different bank ($0F:$F587)
0x019639|$06:$9629:20 87 F5	JSR $F587  	; display appropriate main ITEM target menu
0x01963C|$06:$962C:C9 FF   	CMP #$FF   
0x01963E|$06:$962E:D0 03   	BNE $9633  	; USE Item ID #$29: Leaf of The World Tree on target hero
0x019640|$06:$9630:4C 42 95	JMP $9542  	; exit COMMAND menu

; USE Item ID #$29: Leaf of The World Tree on target hero
; control flow target (from $962E)
0x019643|$06:$9633:48      	PHA        	; target hero ID
0x019644|$06:$9634:20 1D 96	JSR $961D  	; given hero ID in $97 and hero inventory offset in $49, remove that item from hero's inventory and move all lower items up 1 slot
0x019647|$06:$9637:20 CB 9A	JSR $9ACB  	; open dialogue window
0x01964A|$06:$963A:20 25 8D	JSR $8D25  	; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA
; call to code in a different bank ($0F:$FA2E)
0x01964D|$06:$963D:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x019650|$06:$9640:20	; String ID #$0120: [name] [end-FF]

; data -> code
0x019651|$06:$9641:68      	PLA        	; target hero ID
0x019652|$06:$9642:85 49   	STA $49    	; object hero/target/item/string ID $49
; call to code in a different bank ($0F:$FC50)
0x019654|$06:$9644:20 50 FC	JSR $FC50  	; print name of hero given by low 2 bits of A to $6119, terminated by #$FA
; call to code in a different bank ($0F:$FA2E)
0x019657|$06:$9647:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x01965A|$06:$964A:32	; String ID #$0132: ground up the Leaf of the World Tree and gave it to [name].[wait][end-FC]

; data -> code
0x01965B|$06:$964B:4C 9F 8C	JMP $8C9F  	; spell ID is not #$09, #$0B, #$0D, #$10, or #$12-#$16; ergo it's Spell ID #$17: Revive

; control flow target (from $9627)
0x01965E|$06:$964E:48      	PHA        	; item ID
0x01965F|$06:$964F:20 CB 9A	JSR $9ACB  	; open dialogue window
0x019662|$06:$9652:20 25 8D	JSR $8D25  	; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA
0x019665|$06:$9655:68      	PLA        	; item ID
0x019666|$06:$9656:C9 35   	CMP #$35   	; Item ID #$35: Wing of the Wyvern
0x019668|$06:$9658:D0 0A   	BNE $9664  
; call to code in a different bank ($0F:$FA2E)
0x01966A|$06:$965A:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x01966D|$06:$965D:21	; String ID #$0121: [name] threw the Wing of the Wyvern into the air.[end-FC]

; data -> code
0x01966E|$06:$965E:20 1D 96	JSR $961D  	; given hero ID in $97 and hero inventory offset in $49, remove that item from hero's inventory and move all lower items up 1 slot
0x019671|$06:$9661:4C 51 8C	JMP $8C51  	; handler for Return spell effect

; control flow target (from $9658)
0x019674|$06:$9664:C9 25   	CMP #$25   	; Item ID #$25: Tresures
0x019676|$06:$9666:D0 07   	BNE $966F  
; call to code in a different bank ($0F:$FA2E)
0x019678|$06:$9668:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x01967B|$06:$966B:29	; String ID #$0129: [name] could not open the treasure chest, for it was locked.[end-FC]

; data -> code
0x01967C|$06:$966C:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; control flow target (from $9666)
0x01967F|$06:$966F:C9 34   	CMP #$34   	; Item ID #$34: Fairy Water
0x019681|$06:$9671:D0 0E   	BNE $9681  
; call to code in a different bank ($0F:$FA2E)
0x019683|$06:$9673:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x019686|$06:$9676:2A	; String ID #$012A: [name] sprinkled the Fairy Water from head to toe.[end-FC]

; data -> code
0x019687|$06:$9677:A9 FF   	LDA #$FF   
0x019689|$06:$9679:85 46   	STA $46    	; Repel (#$FE) / Fairy Water (#$FF) flag
0x01968B|$06:$967B:20 1D 96	JSR $961D  	; given hero ID in $97 and hero inventory offset in $49, remove that item from hero's inventory and move all lower items up 1 slot
0x01968E|$06:$967E:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; control flow target (from $9671)
0x019691|$06:$9681:C9 28   	CMP #$28   	; Item ID #$28: Eye of Malroth
0x019693|$06:$9683:D0 4B   	BNE $96D0  
; call to code in a different bank ($0F:$FA2E)
0x019695|$06:$9685:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x019698|$06:$9688:31	; String ID #$0131: [name] held high the Eye of Malroth.[end-FC]

; data -> code
0x019699|$06:$9689:A5 31   	LDA $31    	; current map ID
0x01969B|$06:$968B:C9 01   	CMP #$01   	; Map ID #$01: World Map
0x01969D|$06:$968D:D0 24   	BNE $96B3  	; if not World Map, go check Hagon's Castle 1F
0x01969F|$06:$968F:AD F9 05	LDA $05F9  	; flag for Cave to Rhone open
0x0196A2|$06:$9692:D0 35   	BNE $96C9  	; item useless here
0x0196A4|$06:$9694:A5 16   	LDA $16    	; current map X-pos (1)
0x0196A6|$06:$9696:C9 71   	CMP #$71   	; X-pos range for successful use: #$71 - #$76 inclusive
0x0196A8|$06:$9698:90 2F   	BCC $96C9  	; item useless here
0x0196AA|$06:$969A:C9 77   	CMP #$77   
0x0196AC|$06:$969C:B0 2B   	BCS $96C9  	; item useless here
0x0196AE|$06:$969E:A5 17   	LDA $17    	; current map Y-pos (1)
0x0196B0|$06:$96A0:C9 C6   	CMP #$C6   	; Y-pos range for successful use: #$C6 - #$C8 inclusive
0x0196B2|$06:$96A2:90 25   	BCC $96C9  	; item useless here
0x0196B4|$06:$96A4:C9 C9   	CMP #$C9   
0x0196B6|$06:$96A6:B0 21   	BCS $96C9  	; item useless here
; call to code in a different bank ($0F:$D0F5)
0x0196B8|$06:$96A8:20 F5 D0	JSR $D0F5  	; wait for a while and then wipe menu regions #$03, #$00, and #$01
0x0196BB|$06:$96AB:A2 3C   	LDX #$3C   
; call to code in a different bank ($0F:$C1EE)
0x0196BD|$06:$96AD:20 EE C1	JSR $C1EE  	; set $6007 = #$00, set $00 = #$01, wait for X interrupts, set $00 = #$FF
; call to code in a different bank ($0F:$D23E)
0x0196C0|$06:$96B0:4C 3E D2	JMP $D23E  

; control flow target (from $968D)
0x0196C3|$06:$96B3:C9 16   	CMP #$16   	; Map ID #$16: Hargon's Castle 1F
0x0196C5|$06:$96B5:D0 12   	BNE $96C9  	; item useless here
; call to code in a different bank ($0F:$CD26)
0x0196C7|$06:$96B7:20 26 CD	JSR $CD26  	; set Z if your current map position is the (X, Y) co-ordinates given by the next 2 bytes

; code -> data
; indirect data load target
0x0196CA|$06:$96BA:0D
; indirect data load target
0x0196CB|$06:$96BB:04

; data -> code
0x0196CC|$06:$96BC:D0 0B   	BNE $96C9  	; item useless here
0x0196CE|$06:$96BE:A2 78   	LDX #$78   
; call to code in a different bank ($0F:$C1EE)
0x0196D0|$06:$96C0:20 EE C1	JSR $C1EE  	; set $6007 = #$00, set $00 = #$01, wait for X interrupts, set $00 = #$FF
; call to code in a different bank ($0F:$C515)
0x0196D3|$06:$96C3:20 15 C5	JSR $C515  	; flash screen 10 times
; call to code in a different bank ($0F:$D7A6)
0x0196D6|$06:$96C6:4C A6 D7	JMP $D7A6  

; item useless here
; control flow target (from $9692, $9698, $969C, $96A2, $96A6, $96B5, $96BC)
; call to code in a different bank ($0F:$FA2E)
0x0196D9|$06:$96C9:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x0196DC|$06:$96CC:27	; String ID #$0127: [wait]But nothing happened.[end-FC]

; data -> code
0x0196DD|$06:$96CD:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; control flow target (from $9683)
0x0196E0|$06:$96D0:C9 2B   	CMP #$2B   	; Item ID #$2B: Mirror of Ra
0x0196E2|$06:$96D2:D0 74   	BNE $9748  
0x0196E4|$06:$96D4:20 25 8D	JSR $8D25  	; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA
; call to code in a different bank ($0F:$FA2E)
0x0196E7|$06:$96D7:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x0196EA|$06:$96DA:36	; String ID #$0136: [name] held up the Mirror of Ra.[end-FC]

; data -> code
0x0196EB|$06:$96DB:A9 00   	LDA #$00   
0x0196ED|$06:$96DD:85 96   	STA $96    	; temp storage for item/spell/type/etc. IDs
; control flow target (from $96F0)
0x0196EF|$06:$96DF:A5 96   	LDA $96    	; temp storage for item/spell/type/etc. IDs
; call to code in a different bank ($0F:$CF70)
0x0196F1|$06:$96E1:20 70 CF	JSR $CF70  
0x0196F4|$06:$96E4:A5 0C   	LDA $0C    
0x0196F6|$06:$96E6:C9 02   	CMP #$02   	; Moonbrooke
0x0196F8|$06:$96E8:F0 0F   	BEQ $96F9  
0x0196FA|$06:$96EA:E6 96   	INC $96    	; temp storage for item/spell/type/etc. IDs
0x0196FC|$06:$96EC:A5 96   	LDA $96    	; temp storage for item/spell/type/etc. IDs
0x0196FE|$06:$96EE:C9 04   	CMP #$04   
0x019700|$06:$96F0:D0 ED   	BNE $96DF  
; call to code in a different bank ($0F:$FA2E)
0x019702|$06:$96F2:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x019705|$06:$96F5:27	; String ID #$0127: [wait]But nothing happened.[end-FC]

; data -> code
0x019706|$06:$96F6:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; control flow target (from $96E8)
0x019709|$06:$96F9:A9 02   	LDA #$02   	; Moonbrooke; useless op
; call to code in a different bank ($0F:$FC50)
0x01970B|$06:$96FB:20 50 FC	JSR $FC50  	; print name of hero given by low 2 bits of A to $6119, terminated by #$FA
; call to code in a different bank ($0F:$FA2E)
0x01970E|$06:$96FE:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x019711|$06:$9701:37	; String ID #$0137: [wait]Behold, the mirror reflected back the image of Princess [name].[wait][line]Suddenly it shattered and the enchantment was broken,[wait][line]freeing the princess from her furry form.[end-FC]

; data -> code
0x019712|$06:$9702:A5 97   	LDA $97    	; subject hero ID $97
0x019714|$06:$9704:A6 49   	LDX $49    	; object hero/target/item/string ID $49
; call to code in a different bank ($0F:$C4D4)
0x019716|$06:$9706:20 D4 C4	JSR $C4D4  	; given hero ID in A and hero inventory offset in X, remove that item from hero's inventory and move all lower items up 1 slot
; call to code in a different bank ($0F:$D0F5)
0x019719|$06:$9709:20 F5 D0	JSR $D0F5  	; wait for a while and then wipe menu regions #$03, #$00, and #$01
0x01971C|$06:$970C:A2 28   	LDX #$28   
; call to code in a different bank ($0F:$C1EE)
0x01971E|$06:$970E:20 EE C1	JSR $C1EE  	; set $6007 = #$00, set $00 = #$01, wait for X interrupts, set $00 = #$FF
0x019721|$06:$9711:A9 00   	LDA #$00   
0x019723|$06:$9713:8D 4A 05	STA $054A  	; NPC #$01 scripted motion low byte
0x019726|$06:$9716:8D 4B 05	STA $054B  	; NPC #$01 scripted motion high byte
0x019729|$06:$9719:A9 09   	LDA #$09   
0x01972B|$06:$971B:A0 1F   	LDY #$1F   
; call to code in a different bank ($0F:$CD45)
0x01972D|$06:$971D:20 45 CD	JSR $CD45  
0x019730|$06:$9720:A9 02   	LDA #$02   
0x019732|$06:$9722:A0 1F   	LDY #$1F   
; call to code in a different bank ($0F:$CD4B)
0x019734|$06:$9724:20 4B CD	JSR $CD4B  
0x019737|$06:$9727:20 72 81	JSR $8172  
0x01973A|$06:$972A:A9 84   	LDA #$84   	; add Moonbrooke to party
0x01973C|$06:$972C:8D 51 06	STA $0651  	; Moonbrooke status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence)
0x01973F|$06:$972F:A9 02   	LDA #$02   
0x019741|$06:$9731:8D 51 05	STA $0551  	; NPC #$02 sprite ID
; control flow target (from $81B6)
0x019744|$06:$9734:20 CB 9A	JSR $9ACB  	; open dialogue window
0x019747|$06:$9737:A9 02   	LDA #$02   	; Moonbrooke
; call to code in a different bank ($0F:$FC50)
0x019749|$06:$9739:20 50 FC	JSR $FC50  	; print name of hero given by low 2 bits of A to $6119, terminated by #$FA
; call to code in a different bank ($0F:$FA2E)
0x01974C|$06:$973C:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x01974F|$06:$973F:57	; String ID #$0157: ‘Oh, dear cousin, thou hast freed me beyond all hope[.’][wait][line]‘To repay this, I offer thee my loyalty and service as the Princess of Moonbrooke[.’][wait][line]‘Please, take me with thee on thy quest[.’][end-FC]

; data -> code
0x019750|$06:$9740:A9 07   	LDA #$07   	; Music ID #$07: add party member BGM
; call to code in a different bank ($0F:$C58D)
0x019752|$06:$9742:20 8D C5	JSR $C58D  	; play PCM specified by A (>= #$80 = sound effect [SFX], < #$80 = background music [BGM]), wait for it to finish, then play previous BGM
0x019755|$06:$9745:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; control flow target (from $96D2)
0x019758|$06:$9748:C9 2C   	CMP #$2C   	; Item ID #$2C: Dew’s Yarn
0x01975A|$06:$974A:F0 04   	BEQ $9750  
0x01975C|$06:$974C:C9 2D   	CMP #$2D   	; Item ID #$2D: Magic Loom
0x01975E|$06:$974E:D0 07   	BNE $9757  
; control flow target (from $974A)
; call to code in a different bank ($0F:$FA2E)
0x019760|$06:$9750:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x019763|$06:$9753:38	; String ID #$0138: [name] tried to use the [item],[wait] but didn't know how.[end-FC]

; data -> code
0x019764|$06:$9754:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; control flow target (from $974E)
0x019767|$06:$9757:C9 37   	CMP #$37   	; Item ID #$37: Golden Key
0x019769|$06:$9759:D0 04   	BNE $975F  
0x01976B|$06:$975B:A9 01   	LDA #$01   
0x01976D|$06:$975D:D0 14   	BNE $9773  
; control flow target (from $9759)
0x01976F|$06:$975F:C9 38   	CMP #$38   	; Item ID #$38: Silver Key
0x019771|$06:$9761:D0 04   	BNE $9767  
0x019773|$06:$9763:A9 00   	LDA #$00   
0x019775|$06:$9765:F0 0C   	BEQ $9773  
; control flow target (from $9761)
0x019777|$06:$9767:C9 39   	CMP #$39   	; Item ID #$39: Jailor’s Key
0x019779|$06:$9769:F0 06   	BEQ $9771  
0x01977B|$06:$976B:C9 3A   	CMP #$3A   	; Item ID #$3A: Watergate Key
0x01977D|$06:$976D:F0 1E   	BEQ $978D  	; check Watergate
0x01977F|$06:$976F:D0 78   	BNE $97E9  
; control flow target (from $9769)
0x019781|$06:$9771:A9 02   	LDA #$02   
; control flow target (from $975D, $9765)
0x019783|$06:$9773:85 C9   	STA $C9    
; call to code in a different bank ($0F:$CF7C)
0x019785|$06:$9775:20 7C CF	JSR $CF7C  
0x019788|$06:$9778:A5 49   	LDA $49    	; object hero/target/item/string ID $49
0x01978A|$06:$977A:D0 08   	BNE $9784  
0x01978C|$06:$977C:A5 96   	LDA $96    	; temp storage for item/spell/type/etc. IDs
0x01978E|$06:$977E:C9 39   	CMP #$39   	; Item ID #$39: Jailor’s Key
0x019790|$06:$9780:F0 57   	BEQ $97D9  
0x019792|$06:$9782:D0 51   	BNE $97D5  
; control flow target (from $977A)
0x019794|$06:$9784:C9 01   	CMP #$01   
0x019796|$06:$9786:F0 59   	BEQ $97E1  	; wrong key for door
0x019798|$06:$9788:A9 58   	LDA #$58   	; String ID #$0158: The door opened.[end-FC]
0x01979A|$06:$978A:4C E3 97	JMP $97E3  

; check Watergate
; control flow target (from $976D)
0x01979D|$06:$978D:A5 31   	LDA $31    	; current map ID
0x01979F|$06:$978F:C9 12   	CMP #$12   	; Map ID #$12: Tuhn Watergate
0x0197A1|$06:$9791:D0 4A   	BNE $97DD  
; call to code in a different bank ($0F:$CD26)
0x0197A3|$06:$9793:20 26 CD	JSR $CD26  	; set Z if your current map position is the (X, Y) co-ordinates given by the next 2 bytes

; code -> data
; indirect data load target
0x0197A6|$06:$9796:02
; indirect data load target
0x0197A7|$06:$9797:04

; data -> code
0x0197A8|$06:$9798:D0 43   	BNE $97DD  
; call to code in a different bank ($0F:$FA2E)
0x0197AA|$06:$979A:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x0197AD|$06:$979D:59	; String ID #$0159: The water gate opened.[end-FC]

; data -> code
; call to code in a different bank ($0F:$D0F5)
0x0197AE|$06:$979E:20 F5 D0	JSR $D0F5  	; wait for a while and then wipe menu regions #$03, #$00, and #$01
0x0197B1|$06:$97A1:A5 97   	LDA $97    	; subject hero ID $97
0x0197B3|$06:$97A3:85 9C   	STA $9C    
0x0197B5|$06:$97A5:A9 3A   	LDA #$3A   	; Item ID #$3A: Watergate Key
; call to code in a different bank ($0F:$C4B6)
0x0197B7|$06:$97A7:20 B6 C4	JSR $C4B6  	; given a hero ID in $9C and an item ID in A, remove that item from hero's inventory if present and SEC, CLC otherwise
0x0197BA|$06:$97AA:A9 04   	LDA #$04   
0x0197BC|$06:$97AC:85 20   	STA $20    	; map exterior border tile ID (#$00 = Road, #$01 = Grass, #$02 = Sand, #$03 = Tree, #$04 = Water, #$05 = Vertical Wall, #$06 = Shrub, #$07 = Horizontal Wall, #$08 = Swamp, ..., #$20 = Ceiling Alternating?, #$21 = Ceiling Down?, #$24 = Black?, #$28 = Blue?)
0x0197BE|$06:$97AE:A9 01   	LDA #$01   
0x0197C0|$06:$97B0:85 CE   	STA $CE    	; Tuhn Watergate open flag (#$00 = closed, #$01 = open)
0x0197C2|$06:$97B2:A9 00   	LDA #$00   
0x0197C4|$06:$97B4:85 18   	STA $18    
0x0197C6|$06:$97B6:A9 02   	LDA #$02   
0x0197C8|$06:$97B8:85 19   	STA $19    
; call to code in a different bank ($0F:$D256)
0x0197CA|$06:$97BA:20 56 D2	JSR $D256  
0x0197CD|$06:$97BD:A9 02   	LDA #$02   
0x0197CF|$06:$97BF:85 18   	STA $18    
; call to code in a different bank ($0F:$D256)
0x0197D1|$06:$97C1:20 56 D2	JSR $D256  
0x0197D4|$06:$97C4:A9 96   	LDA #$96   	; Music ID #$96: Watergate SFX
; call to code in a different bank ($0F:$C561)
0x0197D6|$06:$97C6:20 61 C5	JSR $C561  	; play PCM specified by A (>= #$80 = sound effect [SFX], < #$80 = background music [BGM])
0x0197D9|$06:$97C9:A2 3C   	LDX #$3C   
; call to code in a different bank ($0F:$C1EE)
0x0197DB|$06:$97CB:20 EE C1	JSR $C1EE  	; set $6007 = #$00, set $00 = #$01, wait for X interrupts, set $00 = #$FF
0x0197DE|$06:$97CE:A9 32   	LDA #$32   
0x0197E0|$06:$97D0:85 41   	STA $41    
; call to code in a different bank ($0F:$E938)
0x0197E2|$06:$97D2:4C 38 E9	JMP $E938  

; control flow target (from $9782)
0x0197E5|$06:$97D5:A9 3B   	LDA #$3B   	; String ID #$013B: There is no door here.[end-FC]
0x0197E7|$06:$97D7:D0 0A   	BNE $97E3  
; control flow target (from $9780)
0x0197E9|$06:$97D9:A9 3C   	LDA #$3C   	; String ID #$013C: There is no prison here.[end-FC]
0x0197EB|$06:$97DB:D0 06   	BNE $97E3  
; control flow target (from $9791, $9798)
0x0197ED|$06:$97DD:A9 3D   	LDA #$3D   	; String ID #$013D: This is not the water gate.[end-FC]
0x0197EF|$06:$97DF:D0 02   	BNE $97E3  
; wrong key for door
; control flow target (from $9786)
0x0197F1|$06:$97E1:A9 3E   	LDA #$3E   	; String ID #$013E: The key wouldn't turn in the lock.[end-FC]
; control flow target (from $978A, $97D7, $97DB, $97DF)
; call to code in a different bank ($0F:$FA4E)
0x0197F3|$06:$97E3:20 4E FA	JSR $FA4E  	; display string ID specified by A + #$0100
0x0197F6|$06:$97E6:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; control flow target (from $976F)
0x0197F9|$06:$97E9:C9 33   	CMP #$33   	; Item ID #$33: Lottery Ticket
0x0197FB|$06:$97EB:D0 07   	BNE $97F4  
; call to code in a different bank ($0F:$FA2E)
0x0197FD|$06:$97ED:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x019800|$06:$97F0:40	; String ID #$0140: [name] eagerly handed over the lottery ticket.[end-FC]

; data -> code
0x019801|$06:$97F1:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; control flow target (from $97EB)
0x019804|$06:$97F4:C9 3D   	CMP #$3D   	; Item ID #$3D: Wizard’s Ring
0x019806|$06:$97F6:D0 17   	BNE $980F  
; call to code in a different bank ($0F:$FA2E)
0x019808|$06:$97F8:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x01980B|$06:$97FB:41	; String ID #$0141: [name] slipped on the Wizard's Ring and spoke a word of magic.[end-FC]

; data -> code
0x01980C|$06:$97FC:A5 97   	LDA $97    	; subject hero ID $97
; call to code in a different bank ($0F:$F722)
0x01980E|$06:$97FE:20 22 F7	JSR $F722  	; restore the hero ID in A's MP by a random amount based on the Wizard's Ring's power; returns a random number between $03 and #$0A in A and $99
0x019811|$06:$9801:A5 99   	LDA $99    	; chance for Wizard's Ring to break
0x019813|$06:$9803:D0 07   	BNE $980C  
; call to code in a different bank ($0F:$FA2E)
0x019815|$06:$9805:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x019818|$06:$9808:42	; String ID #$0142: [wait]The ring crumbled like clay into dust, losing all its power.[end-FC]

; data -> code
0x019819|$06:$9809:20 1D 96	JSR $961D  	; given hero ID in $97 and hero inventory offset in $49, remove that item from hero's inventory and move all lower items up 1 slot
; control flow target (from $9803)
0x01981C|$06:$980C:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; control flow target (from $97F6)
0x01981F|$06:$980F:C9 31   	CMP #$31   	; Item ID #$31: Dragon’s Potion
0x019821|$06:$9811:D0 12   	BNE $9825  
; call to code in a different bank ($0F:$FA2E)
0x019823|$06:$9813:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x019826|$06:$9816:43	; String ID #$0143: The beautiful voice can be heard from somewhere[..][..][wait][end-FC]

; data -> code
; call to code in a different bank ($0F:$FA32)
0x019827|$06:$9817:20 32 FA	JSR $FA32  	; display string ID specified by next byte + #$0200

; code -> data
; indirect data load target
0x01982A|$06:$981A:87	; String ID #$0287: ‘Dost thou wish to save thy deeds in the Imperial Scrolls of Honor?’[FD][FD][end-FC]

; data -> code
0x01982B|$06:$981B:20 5D A3	JSR $A35D  	; save game handler
; call to code in a different bank ($0F:$FA2E)
0x01982E|$06:$981E:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x019831|$06:$9821:47	; String ID #$0147: ‘I watch over my descendants[.’][end-FC]

; data -> code
0x019832|$06:$9822:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; control flow target (from $9811)
0x019835|$06:$9825:C9 3E   	CMP #$3E   	; Item ID #$3E: Perilous
0x019837|$06:$9827:D0 0B   	BNE $9834  
; external control flow target (from $0F:$F74D)
0x019839|$06:$9829:86 49   	STX $49    	; object hero/target/item/string ID $49
0x01983B|$06:$982B:85 96   	STA $96    	; temp storage for item/spell/type/etc. IDs
0x01983D|$06:$982D:85 95   	STA $95    	; ID for [item] and [spell] control codes
0x01983F|$06:$982F:48      	PHA        
0x019840|$06:$9830:20 25 8D	JSR $8D25  	; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA
0x019843|$06:$9833:68      	PLA        
; control flow target (from $9827)
0x019844|$06:$9834:C9 30   	CMP #$30   	; Item ID #$30: Dragon’s Bane
0x019846|$06:$9836:D0 06   	BNE $983E  
0x019848|$06:$9838:20 95 98	JSR $9895  	; USE Dragon's Bane
0x01984B|$06:$983B:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; control flow target (from $9836)
0x01984E|$06:$983E:C9 2F   	CMP #$2F   	; Item ID #$2F: Gremlin’s Tail
0x019850|$06:$9840:D0 06   	BNE $9848  
0x019852|$06:$9842:20 B0 98	JSR $98B0  	; USE Gremlin's Tail
0x019855|$06:$9845:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; control flow target (from $9840)
0x019858|$06:$9848:C9 26   	CMP #$26   	; Item ID #$26: Moon Fragment
0x01985A|$06:$984A:D0 06   	BNE $9852  
0x01985C|$06:$984C:20 CB 98	JSR $98CB  	; USE Moon Fragment
0x01985F|$06:$984F:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; control flow target (from $984A)
0x019862|$06:$9852:C9 24   	CMP #$24   	; Item ID #$24: Token of Erdrick
0x019864|$06:$9854:D0 06   	BNE $985C  
0x019866|$06:$9856:20 08 99	JSR $9908  	; USE Token of Erdrick
0x019869|$06:$9859:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; control flow target (from $9854)
0x01986C|$06:$985C:C9 2E   	CMP #$2E   	; Item ID #$2E: Cloak of Wind
0x01986E|$06:$985E:D0 06   	BNE $9866  
0x019870|$06:$9860:20 14 99	JSR $9914  	; USE Cloak of Wind
0x019873|$06:$9863:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; control flow target (from $985E)
0x019876|$06:$9866:C9 27   	CMP #$27   	; Item ID #$27: Charm of Rubiss
0x019878|$06:$9868:D0 06   	BNE $9870  
0x01987A|$06:$986A:20 2F 99	JSR $992F  	; USE Charm of Rubiss
0x01987D|$06:$986D:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; control flow target (from $9868)
0x019880|$06:$9870:C9 2A   	CMP #$2A   	; Item ID #$2A: Echoing Flute
0x019882|$06:$9872:D0 06   	BNE $987A  
0x019884|$06:$9874:20 63 99	JSR $9963  	; USE Echoing Flute
0x019887|$06:$9877:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; control flow target (from $9872)
0x01988A|$06:$987A:C9 36   	CMP #$36   	; Item ID #$36: [blank]
0x01988C|$06:$987C:D0 06   	BNE $9884  
0x01988E|$06:$987E:20 9C 99	JSR $999C  	; USE Golden Card
0x019891|$06:$9881:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; control flow target (from $987C)
0x019894|$06:$9884:C9 32   	CMP #$32   	; Item ID #$32: Golden Card
0x019896|$06:$9886:D0 06   	BNE $988E  
0x019898|$06:$9888:20 9C 99	JSR $999C  	; USE Golden Card
0x01989B|$06:$988B:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; control flow target (from $9886)
; call to code in a different bank ($0F:$FA2E)
0x01989E|$06:$988E:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x0198A1|$06:$9891:9E	; String ID #$019E: But nothing happened.[end-FC]

; data -> code
0x0198A2|$06:$9892:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; USE Dragon's Bane
; control flow target (from $9838)
0x0198A5|$06:$9895:09 40   	ORA #$40   	; check for equipped version
0x0198A7|$06:$9897:20 BA 8D	JSR $8DBA  	; given a hero ID in $97 and an item ID in A, SEC if hero has that item, CLC otherwise
0x0198AA|$06:$989A:B0 0E   	BCS $98AA  
0x0198AC|$06:$989C:A6 49   	LDX $49    	; object hero/target/item/string ID $49
0x0198AE|$06:$989E:20 0F 8B	JSR $8B0F  	; given hero ID in $97 and hero inventory index in X, return corresponding item ID in A and party inventory index in X
0x0198B1|$06:$98A1:09 40   	ORA #$40   	; equip it
0x0198B3|$06:$98A3:9D 00 06	STA $0600,X	; Midenhall inventory item 1 (| #$40 if equipped)
0x0198B6|$06:$98A6:A9 22   	LDA #$22   	; String ID #$0122: [name] put on the Dragon's Bane.[end-FC]
0x0198B8|$06:$98A8:D0 02   	BNE $98AC  
; control flow target (from $989A)
0x0198BA|$06:$98AA:A9 23   	LDA #$23   	; String ID #$0123: [name] has already put on the Dragon's Bane.[end-FC]
; control flow target (from $98A8)
; call to code in a different bank ($0F:$FA4E)
0x0198BC|$06:$98AC:20 4E FA	JSR $FA4E  	; display string ID specified by A + #$0100
0x0198BF|$06:$98AF:60      	RTS        

; USE Gremlin's Tail
; control flow target (from $9842)
0x0198C0|$06:$98B0:09 40   	ORA #$40   	; check for equipped version
0x0198C2|$06:$98B2:20 BA 8D	JSR $8DBA  	; given a hero ID in $97 and an item ID in A, SEC if hero has that item, CLC otherwise
0x0198C5|$06:$98B5:B0 0E   	BCS $98C5  
0x0198C7|$06:$98B7:A6 49   	LDX $49    	; object hero/target/item/string ID $49
0x0198C9|$06:$98B9:20 0F 8B	JSR $8B0F  	; given hero ID in $97 and hero inventory index in X, return corresponding item ID in A and party inventory index in X
0x0198CC|$06:$98BC:09 40   	ORA #$40   	; equip it
0x0198CE|$06:$98BE:9D 00 06	STA $0600,X	; Midenhall inventory item 1 (| #$40 if equipped)
0x0198D1|$06:$98C1:A9 24   	LDA #$24   	; String ID #$0124: [name] put on the Gremlin's Tail.[end-FC]
0x0198D3|$06:$98C3:D0 02   	BNE $98C7  
; control flow target (from $98B5)
0x0198D5|$06:$98C5:A9 25   	LDA #$25   	; String ID #$0125: [name] has already put on the Gremlin's Tail.[end-FC]
; control flow target (from $98C3)
; call to code in a different bank ($0F:$FA4E)
0x0198D7|$06:$98C7:20 4E FA	JSR $FA4E  	; display string ID specified by A + #$0100
0x0198DA|$06:$98CA:60      	RTS        

; USE Moon Fragment
; control flow target (from $984C)
; call to code in a different bank ($0F:$FA2E)
0x0198DB|$06:$98CB:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x0198DE|$06:$98CE:26	; String ID #$0126: [name] held the Moon Fragment overhead.[end-FC]

; data -> code
0x0198DF|$06:$98CF:A5 8E   	LDA $8E    	; flag for in battle or not (#$FF)?
0x0198E1|$06:$98D1:30 2D   	BMI $9900  
0x0198E3|$06:$98D3:A5 1F   	LDA $1F    	; some kind of map type (#$00: World Map, #$01: other non-dungeon maps, #$02: maps #$2B - #$43 inclusive, #$03: maps >= #$44, #$FF => game menu)
0x0198E5|$06:$98D5:D0 29   	BNE $9900  
0x0198E7|$06:$98D7:AD F8 05	LDA $05F8  	; Sea Cave shoal status (#$00 = shoals up, others = shoals down)
0x0198EA|$06:$98DA:D0 24   	BNE $9900  
0x0198EC|$06:$98DC:A5 16   	LDA $16    	; current map X-pos (1)
0x0198EE|$06:$98DE:C9 B1   	CMP #$B1   	; X-range for effective use is #$B1-#$B9 inclusive
0x0198F0|$06:$98E0:90 1E   	BCC $9900  
0x0198F2|$06:$98E2:C9 BA   	CMP #$BA   
0x0198F4|$06:$98E4:B0 1A   	BCS $9900  
0x0198F6|$06:$98E6:A5 17   	LDA $17    	; current map Y-pos (1)
0x0198F8|$06:$98E8:C9 A2   	CMP #$A2   	; Y-range for effective use is #$A2-#$AC inclusive
0x0198FA|$06:$98EA:90 14   	BCC $9900  
0x0198FC|$06:$98EC:C9 AD   	CMP #$AD   
0x0198FE|$06:$98EE:B0 10   	BCS $9900  
; call to code in a different bank ($0F:$D0F5)
0x019900|$06:$98F0:20 F5 D0	JSR $D0F5  	; wait for a while and then wipe menu regions #$03, #$00, and #$01
0x019903|$06:$98F3:A2 3C   	LDX #$3C   
; call to code in a different bank ($0F:$C1EE)
0x019905|$06:$98F5:20 EE C1	JSR $C1EE  	; set $6007 = #$00, set $00 = #$01, wait for X interrupts, set $00 = #$FF
0x019908|$06:$98F8:A9 01   	LDA #$01   
0x01990A|$06:$98FA:8D F8 05	STA $05F8  	; Sea Cave shoal status (#$00 = shoals up, others = shoals down)
; call to code in a different bank ($0F:$D218)
0x01990D|$06:$98FD:4C 18 D2	JMP $D218  	; open path to Sea Cave

; control flow target (from $98D1, $98D5, $98DA, $98E0, $98E4, $98EA, $98EE)
; call to code in a different bank ($0F:$F73D)
0x019910|$06:$9900:20 3D F7	JSR $F73D  	; calls $04:$99E6
; call to code in a different bank ($0F:$FA2E)
0x019913|$06:$9903:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x019916|$06:$9906:27	; String ID #$0127: [wait]But nothing happened.[end-FC]

; data -> code
0x019917|$06:$9907:60      	RTS        

; USE Token of Erdrick
; control flow target (from $9856)
; call to code in a different bank ($0F:$FA2E)
0x019918|$06:$9908:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
0x01991B|$06:$990B:28	; String ID #$0128: [name] gripped Token of Erdrick.[wait][end-FC]

; data -> code
; call to code in a different bank ($0F:$F73D)
0x01991C|$06:$990C:20 3D F7	JSR $F73D  	; calls $04:$99E6
; call to code in a different bank ($0F:$FA2E)
0x01991F|$06:$990F:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
0x019922|$06:$9912:53	; String ID #$0153: Thy courage soared![end-FC]

; data -> code
0x019923|$06:$9913:60      	RTS        

; USE Cloak of Wind
; control flow target (from $9860)
0x019924|$06:$9914:09 40   	ORA #$40   	; check for equipped version
0x019926|$06:$9916:20 BA 8D	JSR $8DBA  	; given a hero ID in $97 and an item ID in A, SEC if hero has that item, CLC otherwise
0x019929|$06:$9919:B0 0E   	BCS $9929  
0x01992B|$06:$991B:A6 49   	LDX $49    	; object hero/target/item/string ID $49
0x01992D|$06:$991D:20 0F 8B	JSR $8B0F  	; given hero ID in $97 and hero inventory index in X, return corresponding item ID in A and party inventory index in X
0x019930|$06:$9920:09 40   	ORA #$40   	; equip it
0x019932|$06:$9922:9D 00 06	STA $0600,X	; Midenhall inventory item 1 (| #$40 if equipped)
0x019935|$06:$9925:A9 2C   	LDA #$2C   	; String ID #$012C: [name] donned the Cloak of Wind.[end-FC]
0x019937|$06:$9927:D0 02   	BNE $992B  
; control flow target (from $9919)
0x019939|$06:$9929:A9 2D   	LDA #$2D   	; String ID #$012D: Remember, [name] has already put on the Cloak of Wind.[end-FC]
; control flow target (from $9927)
; call to code in a different bank ($0F:$FA4E)
0x01993B|$06:$992B:20 4E FA	JSR $FA4E  	; display string ID specified by A + #$0100
0x01993E|$06:$992E:60      	RTS        

; USE Charm of Rubiss
; control flow target (from $986A)
; call to code in a different bank ($0F:$FA2E)
0x01993F|$06:$992F:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x019942|$06:$9932:2E	; String ID #$012E: With one hand, [name] held aloft the Charm of Rubiss.[wait][end-FC]

; data -> code
0x019943|$06:$9933:A5 8E   	LDA $8E    	; flag for in battle or not (#$FF)?
0x019945|$06:$9935:30 24   	BMI $995B  
0x019947|$06:$9937:A5 31   	LDA $31    	; current map ID
; Map ID #$00: Fake Midenhall
0x019949|$06:$9939:D0 20   	BNE $995B  
; call to code in a different bank ($0F:$FA2E)
0x01994B|$06:$993B:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x01994E|$06:$993E:30	; String ID #$0130: [name] could hear a voice drawing near.[wait][line]‘[name]! Be not deceived by false visions[.’][end-FC]

; data -> code
0x01994F|$06:$993F:A2 78   	LDX #$78   
; call to code in a different bank ($0F:$C1EE)
0x019951|$06:$9941:20 EE C1	JSR $C1EE  	; set $6007 = #$00, set $00 = #$01, wait for X interrupts, set $00 = #$FF
; call to code in a different bank ($0F:$C515)
0x019954|$06:$9944:20 15 C5	JSR $C515  	; flash screen 10 times
; call to code in a different bank ($0F:$C515)
0x019957|$06:$9947:20 15 C5	JSR $C515  	; flash screen 10 times
0x01995A|$06:$994A:68      	PLA        
0x01995B|$06:$994B:68      	PLA        
0x01995C|$06:$994C:AD 59 99	LDA $9959  
0x01995F|$06:$994F:85 0C   	STA $0C    
0x019961|$06:$9951:AD 5A 99	LDA $995A  
0x019964|$06:$9954:85 0D   	STA $0D    
; call to code in a different bank ($0F:$D81C)
0x019966|$06:$9956:4C 1C D8	JMP $D81C  


; code -> data
; data load target (from $994C)
0x019969|$06:$9959:85
; data load target (from $9951)
0x01996A|$06:$995A:   BD	; $03:$BD85

; data -> code
; control flow target (from $9935, $9939)
; call to code in a different bank ($0F:$F73D)
0x01996B|$06:$995B:20 3D F7	JSR $F73D  	; calls $04:$99E6
; call to code in a different bank ($0F:$FA2E)
0x01996E|$06:$995E:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x019971|$06:$9961:2F	; String ID #$012F: And yet nothing happened.[end-FC]

; data -> code
0x019972|$06:$9962:60      	RTS        

; USE Echoing Flute
; control flow target (from $9874)
; call to code in a different bank ($0F:$FA2E)
0x019973|$06:$9963:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x019976|$06:$9966:35	; String ID #$0135: Briefly, [name] played the Echoing Flute.[end-FC]

; data -> code
0x019977|$06:$9967:A0 00   	LDY #$00   
0x019979|$06:$9969:A5 31   	LDA $31    	; current map ID
; control flow target (from $9986)
0x01997B|$06:$996B:D9 8D 99	CMP $998D,Y	; minimum map ID (inclusive)
0x01997E|$06:$996E:90 11   	BCC $9981  	; wrong map
0x019980|$06:$9970:D9 8E 99	CMP $998E,Y	; maximum map ID (exclusive)
0x019983|$06:$9973:B0 0C   	BCS $9981  	; wrong map
0x019985|$06:$9975:B9 8F 99	LDA $998F,Y	; Crest in this map
0x019988|$06:$9978:2D 12 01	AND $0112  	; Crests found bit field (#$10 = Life, #$80 = Water, #$04 = Moon, #$02 = Stars, #$01 = Sun)
0x01998B|$06:$997B:D0 0B   	BNE $9988  	; flute does not echo
0x01998D|$06:$997D:A9 03   	LDA #$03   	; Music ID #$03: Echoing Flute echoing BGM
0x01998F|$06:$997F:D0 09   	BNE $998A  	; flute echoes!
; wrong map
; control flow target (from $996E, $9973)
0x019991|$06:$9981:C8      	INY        
0x019992|$06:$9982:C8      	INY        
0x019993|$06:$9983:C8      	INY        
0x019994|$06:$9984:C0 0F   	CPY #$0F   	; 3 bytes per crest * 5 crests = #$0F
0x019996|$06:$9986:D0 E3   	BNE $996B  	; if more maps to check, check them
; flute does not echo
; control flow target (from $997B)
0x019998|$06:$9988:A9 04   	LDA #$04   	; Music ID #$04: Echoing Flute not echoing BGM
; control flow target (from $997F)
; call to code in a different bank ($0F:$C58D)
0x01999A|$06:$998A:4C 8D C5	JMP $C58D  	; play PCM specified by A (>= #$80 = sound effect [SFX], < #$80 = background music [BGM]), wait for it to finish, then play previous BGM


; code -> data
; minimum map ID (inclusive)
; indexed data load target (from $996B)
0x01999D|$06:$998D:08
; maximum map ID (exclusive)
; indexed data load target (from $9970)
0x01999E|$06:$998E:   09
; Crest in this map
; indexed data load target (from $9975)
0x01999F|$06:$998F:      08	; Map ID #$08: Hamlin Waterway
0x0199A0|$06:$9990:0F 10 04	; Map ID #$0F: Osterfair
0x0199A3|$06:$9993:1E 1F 01	; Map ID #$1E: Shrine NW of Zahan
0x0199A6|$06:$9996:50 58 02	; Map IDs #$50 - #$57: Lighthouse
0x0199A9|$06:$9999:37 40 10	; Map IDs #$37 - #$3F: Cave to Rhone

; data -> code
; USE Golden Card
; control flow target (from $987E, $9888)
; call to code in a different bank ($0F:$FA2E)
0x0199AC|$06:$999C:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x0199AF|$06:$999F:3F	; String ID #$013F: [name] took the Golden Card.[wait][end-FC]

; data -> code
; call to code in a different bank ($0F:$F73D)
0x0199B0|$06:$99A0:20 3D F7	JSR $F73D  	; calls $04:$99E6
; call to code in a different bank ($0F:$FA2E)
0x0199B3|$06:$99A3:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x0199B6|$06:$99A6:54	; String ID #$0154: Thou art happy indeed.[end-FC]

; data -> code
0x0199B7|$06:$99A7:60      	RTS        

; TRADE/THROW handler
; control flow target (from $9590)
0x0199B8|$06:$99A8:C9 01   	CMP #$01   	; TRADE; useless op
0x0199BA|$06:$99AA:F0 03   	BEQ $99AF  	; TRADE handler
0x0199BC|$06:$99AC:4C 84 9A	JMP $9A84  	; THROW command handler

; TRADE handler
; control flow target (from $99AA)
; call to code in a different bank ($0F:$F6CE)
0x0199BF|$06:$99AF:20 CE F6	JSR $F6CE  	; return number of party members - 1 in A/X
0x0199C2|$06:$99B2:D0 0D   	BNE $99C1  	; determine target hero
0x0199C4|$06:$99B4:20 CB 9A	JSR $9ACB  	; open dialogue window
0x0199C7|$06:$99B7:20 25 8D	JSR $8D25  	; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA
; call to code in a different bank ($0F:$FA2E)
0x0199CA|$06:$99BA:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x0199CD|$06:$99BD:19	; String ID #$0119: [name] has no companion with which to exchange tools.[end-FC]

; data -> code
0x0199CE|$06:$99BE:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; determine target hero
; control flow target (from $99B2)
; call to code in a different bank ($0F:$F587)
0x0199D1|$06:$99C1:20 87 F5	JSR $F587  	; display appropriate main ITEM target menu
0x0199D4|$06:$99C4:C9 FF   	CMP #$FF   
0x0199D6|$06:$99C6:D0 03   	BNE $99CB  
0x0199D8|$06:$99C8:4C 42 95	JMP $9542  	; exit COMMAND menu

; control flow target (from $99C6)
0x0199DB|$06:$99CB:85 C9   	STA $C9    	; target hero ID
0x0199DD|$06:$99CD:20 CB 9A	JSR $9ACB  	; open dialogue window
0x0199E0|$06:$99D0:20 FC 9A	JSR $9AFC  	; given hero ID in $97 and hero inventory index in $49, set Z if item is equipped and cursed, clear if not
0x0199E3|$06:$99D3:D0 03   	BNE $99D8  	; item can be traded
0x0199E5|$06:$99D5:4C C4 9A	JMP $9AC4  	; item is equipped and cursed

; item can be traded
; control flow target (from $99D3)
0x0199E8|$06:$99D8:A5 97   	LDA $97    	; subject hero ID $97
0x0199EA|$06:$99DA:C5 C9   	CMP $C9    	; target hero ID
0x0199EC|$06:$99DC:D0 22   	BNE $9A00  	; give to different hero
0x0199EE|$06:$99DE:A9 80   	LDA #$80   	; Alive
0x0199F0|$06:$99E0:20 9A 8D	JSR $8D9A  	; given hero ID in $97, and status in A, SEC if hero has that status, CLC otherwise
0x0199F3|$06:$99E3:90 0A   	BCC $99EF  	; ghost giving to itself
0x0199F5|$06:$99E5:20 25 8D	JSR $8D25  	; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA
; call to code in a different bank ($0F:$FA2E)
0x0199F8|$06:$99E8:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x0199FB|$06:$99EB:1C	; String ID #$011C: [name] started to give it, but held on to it instead.[end-FC]

; data -> code
0x0199FC|$06:$99EC:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; ghost giving to itself
; control flow target (from $99E3)
0x0199FF|$06:$99EF:20 EB 9A	JSR $9AEB  	; using name of first living hero, display String ID #$0120: [name] [end-FF]
0x019A02|$06:$99F2:20 25 8D	JSR $8D25  	; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA
; call to code in a different bank ($0F:$FA2E)
0x019A05|$06:$99F5:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x019A08|$06:$99F8:A1	; String ID #$01A1: took the [item] from the ghost of [name] and [end-FF]

; data -> code
; call to code in a different bank ($0F:$FA2E)
0x019A09|$06:$99F9:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x019A0C|$06:$99FC:A3	; String ID #$01A3: gave it back to the ghost of [name].[end-FC]

; data -> code
0x019A0D|$06:$99FD:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; give to different hero
; control flow target (from $99DC)
0x019A10|$06:$9A00:A5 97   	LDA $97    	; subject hero ID $97
0x019A12|$06:$9A02:48      	PHA        	; item owner hero ID
0x019A13|$06:$9A03:A5 C9   	LDA $C9    	; target hero ID
0x019A15|$06:$9A05:85 97   	STA $97    	; subject hero ID $97
0x019A17|$06:$9A07:20 7E 8D	JSR $8D7E  	; given hero ID in $97 and item ID in $96, try to add item to first empty slot in hero's inventory; SEC if added, CLC if no empty slots
0x019A1A|$06:$9A0A:B0 0B   	BCS $9A17  	; item given to target hero
0x019A1C|$06:$9A0C:68      	PLA        	; item owner hero ID
0x019A1D|$06:$9A0D:20 25 8D	JSR $8D25  	; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA
; call to code in a different bank ($0F:$FA2E)
0x019A20|$06:$9A10:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x019A23|$06:$9A13:1B	; String ID #$011B: [name] cannot carry more items.[end-FC]

; data -> code
0x019A24|$06:$9A14:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; item given to target hero
; control flow target (from $9A0A)
0x019A27|$06:$9A17:68      	PLA        	; item owner hero ID
0x019A28|$06:$9A18:85 97   	STA $97    	; subject hero ID $97
0x019A2A|$06:$9A1A:A6 49   	LDX $49    	; object hero/target/item/string ID $49
; call to code in a different bank ($0F:$C4D4)
0x019A2C|$06:$9A1C:20 D4 C4	JSR $C4D4  	; given hero ID in A and hero inventory offset in X, remove that item from hero's inventory and move all lower items up 1 slot
0x019A2F|$06:$9A1F:A9 80   	LDA #$80   	; Alive
0x019A31|$06:$9A21:20 9A 8D	JSR $8D9A  	; given hero ID in $97, and status in A, SEC if hero has that status, CLC otherwise
0x019A34|$06:$9A24:90 21   	BCC $9A47  	; owner is a ghost
0x019A36|$06:$9A26:20 25 8D	JSR $8D25  	; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA
; call to code in a different bank ($0F:$FA2E)
0x019A39|$06:$9A29:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x019A3C|$06:$9A2C:20	; String ID #$0120: [name] [end-FF]

; data -> code
0x019A3D|$06:$9A2D:A5 C9   	LDA $C9    	; target hero ID
0x019A3F|$06:$9A2F:85 97   	STA $97    	; subject hero ID $97
0x019A41|$06:$9A31:20 25 8D	JSR $8D25  	; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA
0x019A44|$06:$9A34:A9 80   	LDA #$80   	; Alive
0x019A46|$06:$9A36:20 9A 8D	JSR $8D9A  	; given hero ID in $97, and status in A, SEC if hero has that status, CLC otherwise
0x019A49|$06:$9A39:90 04   	BCC $9A3F  	; target is a ghost
0x019A4B|$06:$9A3B:A9 1A   	LDA #$1A   	; String ID #$011A: handed the [item] to [name].[end-FC]
0x019A4D|$06:$9A3D:D0 02   	BNE $9A41  	; target is alive
; target is a ghost
; control flow target (from $9A39)
0x019A4F|$06:$9A3F:A9 17   	LDA #$17   	; String ID #$0117: gave the [item] to the ghost of [name].[end-FC]
; target is alive
; control flow target (from $9A3D)
; call to code in a different bank ($0F:$FA4E)
0x019A51|$06:$9A41:20 4E FA	JSR $FA4E  	; display string ID specified by A + #$0100
0x019A54|$06:$9A44:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; owner is a ghost
; control flow target (from $9A24)
0x019A57|$06:$9A47:A5 97   	LDA $97    	; subject hero ID $97
0x019A59|$06:$9A49:48      	PHA        	; item owner hero ID
0x019A5A|$06:$9A4A:A5 C9   	LDA $C9    	; target hero ID
0x019A5C|$06:$9A4C:85 97   	STA $97    	; subject hero ID $97
0x019A5E|$06:$9A4E:A9 80   	LDA #$80   	; Alive
0x019A60|$06:$9A50:20 9A 8D	JSR $8D9A  	; given hero ID in $97, and status in A, SEC if hero has that status, CLC otherwise
0x019A63|$06:$9A53:90 14   	BCC $9A69  	; target is a ghost
0x019A65|$06:$9A55:20 25 8D	JSR $8D25  	; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA
0x019A68|$06:$9A58:68      	PLA        	; item owner hero ID
0x019A69|$06:$9A59:85 97   	STA $97    	; subject hero ID $97
; call to code in a different bank ($0F:$FA2E)
0x019A6B|$06:$9A5B:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x019A6E|$06:$9A5E:20	; String ID #$0120: [name] [end-FF]

; data -> code
0x019A6F|$06:$9A5F:20 25 8D	JSR $8D25  	; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA
; call to code in a different bank ($0F:$FA2E)
0x019A72|$06:$9A62:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x019A75|$06:$9A65:18	; String ID #$0118: took the [item] from [name].[end-FC]

; data -> code
0x019A76|$06:$9A66:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; target is a ghost
; control flow target (from $9A53)
0x019A79|$06:$9A69:20 EB 9A	JSR $9AEB  	; using name of first living hero, display String ID #$0120: [name] [end-FF]
0x019A7C|$06:$9A6C:68      	PLA        	; item owner hero ID
0x019A7D|$06:$9A6D:85 97   	STA $97    	; subject hero ID $97
0x019A7F|$06:$9A6F:20 25 8D	JSR $8D25  	; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA
; call to code in a different bank ($0F:$FA2E)
0x019A82|$06:$9A72:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x019A85|$06:$9A75:A1	; String ID #$01A1: took the [item] from the ghost of [name] and [end-FF]

; data -> code
0x019A86|$06:$9A76:A5 C9   	LDA $C9    	; target hero ID
0x019A88|$06:$9A78:85 97   	STA $97    	; subject hero ID $97
0x019A8A|$06:$9A7A:20 25 8D	JSR $8D25  	; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA
; call to code in a different bank ($0F:$FA2E)
0x019A8D|$06:$9A7D:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x019A90|$06:$9A80:A2	; String ID #$01A2: gave it to ghost of [name].[end-FC]

; data -> code
0x019A91|$06:$9A81:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; THROW command handler
; control flow target (from $99AC)
0x019A94|$06:$9A84:20 CB 9A	JSR $9ACB  	; open dialogue window
0x019A97|$06:$9A87:A5 96   	LDA $96    	; temp storage for item/spell/type/etc. IDs
0x019A99|$06:$9A89:0A      	ASL        	; item prices are 2 bytes each
0x019A9A|$06:$9A8A:A8      	TAY        
0x019A9B|$06:$9A8B:B9 FC 9F	LDA $9FFC,Y	; Item Prices, low byte
0x019A9E|$06:$9A8E:19 FD 9F	ORA $9FFD,Y	; Item Prices, high byte
0x019AA1|$06:$9A91:F0 2A   	BEQ $9ABD  	; 0 G items are key items
0x019AA3|$06:$9A93:20 FC 9A	JSR $9AFC  	; given hero ID in $97 and hero inventory index in $49, set Z if item is equipped and cursed, clear if not
0x019AA6|$06:$9A96:F0 2C   	BEQ $9AC4  	; item is equipped and cursed
0x019AA8|$06:$9A98:A9 80   	LDA #$80   	; Alive
0x019AAA|$06:$9A9A:20 9A 8D	JSR $8D9A  	; given hero ID in $97, and status in A, SEC if hero has that status, CLC otherwise
0x019AAD|$06:$9A9D:90 0A   	BCC $9AA9  	; owner is a ghost
0x019AAF|$06:$9A9F:20 25 8D	JSR $8D25  	; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA
; call to code in a different bank ($0F:$FA2E)
0x019AB2|$06:$9AA2:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x019AB5|$06:$9AA5:14	; String ID #$0114: [name] threw away the [item].[end-FC]

; data -> code
0x019AB6|$06:$9AA6:4C B3 9A	JMP $9AB3  

; owner is a ghost
; control flow target (from $9A9D)
0x019AB9|$06:$9AA9:20 EB 9A	JSR $9AEB  	; using name of first living hero, display String ID #$0120: [name] [end-FF]
0x019ABC|$06:$9AAC:20 25 8D	JSR $8D25  	; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA
; call to code in a different bank ($0F:$FA2E)
0x019ABF|$06:$9AAF:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x019AC2|$06:$9AB2:16	; String ID #$0116: took the [item] from [name] and threw it away.[end-FC]

; data -> code
; control flow target (from $9AA6)
0x019AC3|$06:$9AB3:A5 97   	LDA $97    	; subject hero ID $97
0x019AC5|$06:$9AB5:A6 49   	LDX $49    	; object hero/target/item/string ID $49
; call to code in a different bank ($0F:$C4D4)
0x019AC7|$06:$9AB7:20 D4 C4	JSR $C4D4  	; given hero ID in A and hero inventory offset in X, remove that item from hero's inventory and move all lower items up 1 slot
0x019ACA|$06:$9ABA:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; 0 G items are key items
; control flow target (from $9A91)
; call to code in a different bank ($0F:$FA2E)
0x019ACD|$06:$9ABD:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x019AD0|$06:$9AC0:0E	; String ID #$010E: Thou should not throw that away.[end-FC]

; data -> code
0x019AD1|$06:$9AC1:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; item is equipped and cursed
; control flow target (from $99D5, $9A96)
; call to code in a different bank ($0F:$FA2E)
0x019AD4|$06:$9AC4:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x019AD7|$06:$9AC7:12	; String ID #$0112: It cannot be removed due to the curse.[end-FC]

; data -> code
0x019AD8|$06:$9AC8:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; open dialogue window
; control flow target (from $80CE, $80FA, $8160, $81BD, $8AB0, $8AD6, $8AF2, $8B46, $8B5C, $8BB3, $8E0C, $8E4C, $8E6B, $8F3F, $8F4E, $91C6, $91E3, $94B4, $94C6, $94E5, $956F, $959A, $95BD, $9637, $964F, $9734, $99B4, $99CD, $9A84)
; call to code in a different bank ($0F:$EB76)
0x019ADB|$06:$9ACB:20 76 EB	JSR $EB76  	; open menu specified by next byte

; code -> data
; indirect data load target
0x019ADE|$06:$9ACE:04	; Menu ID #$04: Dialogue window

; data -> code
0x019ADF|$06:$9ACF:60      	RTS        

; open YES/NO menu, return selected option in A
; control flow target (from $8236, $82C7, $832B, $8360, $83BD, $83D9, $8443, $8506, $8518, $856E, $8681, $86C4, $86EE, $8E54, $8FB5, $902C, $911B, $91AC, $9217, $92EB, $934C, $9388, $94CE, $94FF, $9CAE)
; call to code in a different bank ($0F:$EB76)
0x019AE0|$06:$9AD0:20 76 EB	JSR $EB76  	; open menu specified by next byte

; code -> data
; indirect data load target
0x019AE3|$06:$9AD3:19	; Menu ID #$19: General menu: YES/NO

; data -> code
0x019AE4|$06:$9AD4:60      	RTS        

; set A/$97 to ID of first living hero
; control flow target (from $8ECD, $8F23, $8F51, $8F9B, $8FCC, $9122, $917B, $91F4, $93E5, $9400, $9AEE, $9B1B)
0x019AE5|$06:$9AD5:A9 00   	LDA #$00   	; start with Midenhall
0x019AE7|$06:$9AD7:85 97   	STA $97    	; subject hero ID $97
; control flow target (from $9AE6)
0x019AE9|$06:$9AD9:A9 80   	LDA #$80   	; Alive
0x019AEB|$06:$9ADB:20 9A 8D	JSR $8D9A  	; given hero ID in $97, and status in A, SEC if hero has that status, CLC otherwise
0x019AEE|$06:$9ADE:B0 08   	BCS $9AE8  	; if hero alive, then we're done
0x019AF0|$06:$9AE0:E6 97   	INC $97    	; subject hero ID $97
0x019AF2|$06:$9AE2:A5 97   	LDA $97    	; subject hero ID $97
0x019AF4|$06:$9AE4:C9 03   	CMP #$03   	; only 3 heroes
0x019AF6|$06:$9AE6:D0 F1   	BNE $9AD9  	; loop if more heroes to check
; control flow target (from $9ADE)
0x019AF8|$06:$9AE8:A5 97   	LDA $97    	; subject hero ID $97
0x019AFA|$06:$9AEA:60      	RTS        

; using name of first living hero, display String ID #$0120: [name] [end-FF]
; control flow target (from $99EF, $9A69, $9AA9, $9D2A)
0x019AFB|$06:$9AEB:A5 97   	LDA $97    	; subject hero ID $97; save $97 to stack since $9AD5 will overwrite it
0x019AFD|$06:$9AED:48      	PHA        
0x019AFE|$06:$9AEE:20 D5 9A	JSR $9AD5  	; set A/$97 to ID of first living hero
0x019B01|$06:$9AF1:20 25 8D	JSR $8D25  	; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA
; call to code in a different bank ($0F:$FA2E)
0x019B04|$06:$9AF4:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x019B07|$06:$9AF7:20	; String ID #$0120: [name] [end-FF]

; data -> code
0x019B08|$06:$9AF8:68      	PLA        	; restore $97 from stack
0x019B09|$06:$9AF9:85 97   	STA $97    	; subject hero ID $97
0x019B0B|$06:$9AFB:60      	RTS        

; given hero ID in $97 and hero inventory index in $49, set Z if item is equipped and cursed, clear if not
; control flow target (from $9153, $99D0, $9A93, $9CF4)
0x019B0C|$06:$9AFC:A5 97   	LDA $97    	; subject hero ID $97
0x019B0E|$06:$9AFE:0A      	ASL        	; inventory is 8 items per hero
0x019B0F|$06:$9AFF:0A      	ASL        
0x019B10|$06:$9B00:0A      	ASL        
0x019B11|$06:$9B01:18      	CLC        
0x019B12|$06:$9B02:65 49   	ADC $49    	; object hero/target/item/string ID $49
0x019B14|$06:$9B04:AA      	TAX        
0x019B15|$06:$9B05:BD 00 06	LDA $0600,X	; Midenhall inventory item 1 (| #$40 if equipped)
0x019B18|$06:$9B08:C9 4C   	CMP #$4C   	; Item ID #$4C: Sword of Destruction (equipped)
0x019B1A|$06:$9B0A:F0 0A   	BEQ $9B16  
0x019B1C|$06:$9B0C:C9 57   	CMP #$57   	; Item ID #$57: Gremlin’s Armor (equipped)
0x019B1E|$06:$9B0E:F0 06   	BEQ $9B16  
0x019B20|$06:$9B10:C9 5F   	CMP #$5F   	; Item ID #$5F: Evil Shield (equipped)
0x019B22|$06:$9B12:F0 02   	BEQ $9B16  
0x019B24|$06:$9B14:C9 6F   	CMP #$6F   	; Item ID #$6F: Gremlin’s Tail (equipped)
; control flow target (from $9B0A, $9B0E, $9B12)
0x019B26|$06:$9B16:60      	RTS        

; COMMAND menu SEARCH handler
; indirect control flow target (via $808E)
; call to code in a different bank ($0F:$EB76)
0x019B27|$06:$9B17:20 76 EB	JSR $EB76  	; open menu specified by next byte

; code -> data
; indirect data load target
0x019B2A|$06:$9B1A:04	; Menu ID #$04: Dialogue window

; data -> code
0x019B2B|$06:$9B1B:20 D5 9A	JSR $9AD5  	; set A/$97 to ID of first living hero
0x019B2E|$06:$9B1E:20 25 8D	JSR $8D25  	; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA
0x019B31|$06:$9B21:A5 CF   	LDA $CF    	; ship status (#$04 = on ship, #$02 = own ship, #$01 = beat Lianport Gremlins)
0x019B33|$06:$9B23:29 04   	AND #$04   	; pick out the "on ship" bit
0x019B35|$06:$9B25:F0 04   	BEQ $9B2B  	; branch if you're not on the ship
0x019B37|$06:$9B27:A9 07   	LDA #$07   	; String ID #$0107: [name] dove overboard into the sea.[wait][end-FC]
0x019B39|$06:$9B29:D0 02   	BNE $9B2D  
; control flow target (from $9B25)
0x019B3B|$06:$9B2B:A9 03   	LDA #$03   	; String ID #$0103: [name] searched all about.[wait][end-FC]
; control flow target (from $9B29)
; call to code in a different bank ($0F:$FA4E)
0x019B3D|$06:$9B2D:20 4E FA	JSR $FA4E  	; display string ID specified by A + #$0100
; call to code in a different bank ($0F:$D095)
0x019B40|$06:$9B30:20 95 D0	JSR $D095  
0x019B43|$06:$9B33:90 10   	BCC $9B45  
0x019B45|$06:$9B35:AD 2A 9E	LDA $9E2A  	; -> $06:$9E2E: Treasure List 1 (map ID, X-pos, Y-pos, item ID)
0x019B48|$06:$9B38:85 0C   	STA $0C    
0x019B4A|$06:$9B3A:AD 2B 9E	LDA $9E2B  
0x019B4D|$06:$9B3D:85 0D   	STA $0D    
0x019B4F|$06:$9B3F:20 58 9D	JSR $9D58  	; scan treasure list at ($0C), returning in A/$95/$96 the item ID corresponding to party's current map ID/position or #$00 if there is no item or you're not allowed to get it
0x019B52|$06:$9B42:4C 84 9B	JMP $9B84  

; control flow target (from $9B33)
0x019B55|$06:$9B45:A5 31   	LDA $31    	; current map ID
0x019B57|$06:$9B47:C9 68   	CMP #$68   	; Map ID #$68: Dragon Horn North 3F
0x019B59|$06:$9B49:D0 1E   	BNE $9B69  
0x019B5B|$06:$9B4B:A9 2C   	LDA #$2C   	; Item ID #$2C: Dew’s Yarn
0x019B5D|$06:$9B4D:85 96   	STA $96    	; temp storage for item/spell/type/etc. IDs; item ID
0x019B5F|$06:$9B4F:85 95   	STA $95    	; ID for [item] and [spell] control codes; item ID
0x019B61|$06:$9B51:20 69 A3	JSR $A369  	; check for item A in party inventory, returning inventory index of item in A/X if found, #$FF if not
0x019B64|$06:$9B54:10 27   	BPL $9B7D  	; search failed
0x019B66|$06:$9B56:A9 13   	LDA #$13   	; Item ID #$13: Water Flying Cloth
0x019B68|$06:$9B58:20 60 A3	JSR $A360  	; check for item A (possibly equipped) in party inventory, returning inventory index of item in A/X if found, #$FF if not
0x019B6B|$06:$9B5B:10 20   	BPL $9B7D  	; search failed
; call to code in a different bank ($0F:$C3AB)
0x019B6D|$06:$9B5D:20 AB C3	JSR $C3AB  	; generate a random number and store it in $32-$33 (two passes)
0x019B70|$06:$9B60:A5 32   	LDA $32    	; RNG byte 0
0x019B72|$06:$9B62:29 03   	AND #$03   	; 1/4 chance to find item
0x019B74|$06:$9B64:D0 17   	BNE $9B7D  	; search failed
0x019B76|$06:$9B66:4C 05 9C	JMP $9C05  

; control flow target (from $9B49)
0x019B79|$06:$9B69:AD 2C 9E	LDA $9E2C  	; -> $06:$9F07: Treasure List 2 (map ID, X-pos, Y-pos, item ID)
0x019B7C|$06:$9B6C:85 0C   	STA $0C    
0x019B7E|$06:$9B6E:AD 2D 9E	LDA $9E2D  
0x019B81|$06:$9B71:85 0D   	STA $0D    
0x019B83|$06:$9B73:20 58 9D	JSR $9D58  	; scan treasure list at ($0C), returning in A/$95/$96 the item ID corresponding to party's current map ID/position or #$00 if there is no item or you're not allowed to get it
0x019B86|$06:$9B76:A5 96   	LDA $96    	; temp storage for item/spell/type/etc. IDs; useless op; $96 is already in A
0x019B88|$06:$9B78:F0 03   	BEQ $9B7D  	; search failed
0x019B8A|$06:$9B7A:4C 05 9C	JMP $9C05  

; search failed
; control flow target (from $9B54, $9B5B, $9B64, $9B78)
; call to code in a different bank ($0F:$FA2E)
0x019B8D|$06:$9B7D:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x019B90|$06:$9B80:06	; String ID #$0106: But [name] found nothing.[end-FC]

; data -> code
0x019B91|$06:$9B81:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; control flow target (from $9B42)
0x019B94|$06:$9B84:A5 96   	LDA $96    	; temp storage for item/spell/type/etc. IDs; useless op; $96 is already in A
0x019B96|$06:$9B86:C9 FF   	CMP #$FF   	; Item ID #$FF: Trap!
0x019B98|$06:$9B88:F0 1C   	BEQ $9BA6  	; if Midenhall is equipped with the Armour of Erdrick, chest is empty, otherwise it's a trap with 50/50 chance for the party leader losing half their current HP or getting poisoned
; call to code in a different bank ($0F:$FA2E)
0x019B9A|$06:$9B8A:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x019B9D|$06:$9B8D:05	; String ID #$0105: Seeing a treasure chest, [name] opened it.[wait][end-FC]

; data -> code
0x019B9E|$06:$9B8E:A5 96   	LDA $96    	; temp storage for item/spell/type/etc. IDs; item ID
0x019BA0|$06:$9B90:D0 73   	BNE $9C05  	; Item ID #$00: (no item)
; call to code in a different bank ($0F:$FA2E)
0x019BA2|$06:$9B92:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x019BA5|$06:$9B95:4B	; String ID #$014B: But it was empty.[end-FC]

; data -> code
0x019BA6|$06:$9B96:A5 31   	LDA $31    	; current map ID
0x019BA8|$06:$9B98:C9 51   	CMP #$51   	; Map ID #$51: Lighthouse 2F
0x019BAA|$06:$9B9A:D0 07   	BNE $9BA3  
0x019BAC|$06:$9B9C:A5 D0   	LDA $D0    	; Malroth status flag (#$FF = defeated, #$00 = alive, others = countdown to battle)
0x019BAE|$06:$9B9E:30 03   	BMI $9BA3  
; call to code in a different bank ($0F:$CC0A)
0x019BB0|$06:$9BA0:4C 0A CC	JMP $CC0A  	; trigger Stars Crest battle

; control flow target (from $9B9A, $9B9E)
0x019BB3|$06:$9BA3:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; if Midenhall is equipped with the Armour of Erdrick, chest is empty, otherwise it's a trap with 50/50 chance for the party leader losing half their current HP or getting poisoned
; control flow target (from $9B88)
0x019BB6|$06:$9BA6:A9 5B   	LDA #$5B   	; Item ID #$5B: Armor of Erdrick (equipped)
0x019BB8|$06:$9BA8:20 69 A3	JSR $A369  	; check for item A in party inventory, returning inventory index of item in A/X if found, #$FF if not
0x019BBB|$06:$9BAB:C9 08   	CMP #$08   	; only Midenhall can equip the Armour of Erdrick, so inventory index >= #$08 means he does not have it equipped
0x019BBD|$06:$9BAD:B0 0B   	BCS $9BBA  	; if you don't have it or it isn't equipped, the treasure chest is a trap :(
; call to code in a different bank ($0F:$FA2E)
0x019BBF|$06:$9BAF:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x019BC2|$06:$9BB2:05	; String ID #$0105: Seeing a treasure chest, [name] opened it.[wait][end-FC]

; data -> code
; call to code in a different bank ($0F:$FA2E)
0x019BC3|$06:$9BB3:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x019BC6|$06:$9BB6:4B	; String ID #$014B: But it was empty.[end-FC]

; data -> code
0x019BC7|$06:$9BB7:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; control flow target (from $9BAD)
; call to code in a different bank ($0F:$FA2E)
0x019BCA|$06:$9BBA:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x019BCD|$06:$9BBD:4C	; String ID #$014C: The treasure chest was a trap![end-FC]

; data -> code
; call to code in a different bank ($0F:$C3AB)
0x019BCE|$06:$9BBE:20 AB C3	JSR $C3AB  	; generate a random number and store it in $32-$33 (two passes)
0x019BD1|$06:$9BC1:A5 32   	LDA $32    	; RNG byte 0
0x019BD3|$06:$9BC3:30 2D   	BMI $9BF2  	; 50% chance to branch and get poisoned or not branch and lose half your current HP
0x019BD5|$06:$9BC5:20 4F 9D	JSR $9D4F  	; given hero ID in $97, set A to the offset of that hero's data in $062D
0x019BD8|$06:$9BC8:18      	CLC        
0x019BD9|$06:$9BC9:69 0E   	ADC #$0E   	; offset for hero's current HP, low byte
0x019BDB|$06:$9BCB:AA      	TAX        
0x019BDC|$06:$9BCC:BD 2D 06	LDA $062D,X	; Midenhall status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence)
0x019BDF|$06:$9BCF:85 8F   	STA $8F    	; hero's current HP, low byte
0x019BE1|$06:$9BD1:BD 2E 06	LDA $062E,X	; Midenhall Battle Command Target
0x019BE4|$06:$9BD4:85 90   	STA $90    	; hero's current HP, high byte
0x019BE6|$06:$9BD6:46 90   	LSR $90    	; divide 16-bit current HP by 2 (round down)
0x019BE8|$06:$9BD8:66 8F   	ROR $8F    
0x019BEA|$06:$9BDA:BD 2D 06	LDA $062D,X	; Midenhall status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence)
0x019BED|$06:$9BDD:38      	SEC        	; set 16-bit current HP to 1/2 current HP, rounded up
0x019BEE|$06:$9BDE:E5 8F   	SBC $8F    
0x019BF0|$06:$9BE0:9D 2D 06	STA $062D,X	; Midenhall status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence)
0x019BF3|$06:$9BE3:BD 2E 06	LDA $062E,X	; Midenhall Battle Command Target
0x019BF6|$06:$9BE6:E5 90   	SBC $90    
0x019BF8|$06:$9BE8:9D 2E 06	STA $062E,X	; Midenhall Battle Command Target
; call to code in a different bank ($0F:$FA2A)
0x019BFB|$06:$9BEB:20 2A FA	JSR $FA2A  	; display string ID specified by next byte

; code -> data
; indirect data load target
0x019BFE|$06:$9BEE:0C	; String ID #$000C: [name]'s HP is reduced by [number].[end-FC]

; data -> code
0x019BFF|$06:$9BEF:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; control flow target (from $9BC3)
0x019C02|$06:$9BF2:20 4F 9D	JSR $9D4F  	; given hero ID in $97, set A to the offset of that hero's data in $062D
0x019C05|$06:$9BF5:AA      	TAX        
0x019C06|$06:$9BF6:A9 20   	LDA #$20   	; Poison
0x019C08|$06:$9BF8:1D 2D 06	ORA $062D,X	; Midenhall status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence)
0x019C0B|$06:$9BFB:9D 2D 06	STA $062D,X	; Midenhall status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence)
; call to code in a different bank ($0F:$FA2E)
0x019C0E|$06:$9BFE:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x019C11|$06:$9C01:4D	; String ID #$014D: The poison weakened [name].[end-FC]

; data -> code
0x019C12|$06:$9C02:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; control flow target (from $9B66, $9B7A, $9B90)
0x019C15|$06:$9C05:A5 96   	LDA $96    	; temp storage for item/spell/type/etc. IDs; item ID
0x019C17|$06:$9C07:C9 40   	CMP #$40   	; Crest ID #$40: Sun Crest
0x019C19|$06:$9C09:90 57   	BCC $9C62  	; find a regular item
0x019C1B|$06:$9C0B:C9 45   	CMP #$45   	; Chest Gold ID #$45: 15 - 30 G
0x019C1D|$06:$9C0D:B0 28   	BCS $9C37  	; generate randomized gold amount for treasure ID in A
0x019C1F|$06:$9C0F:A5 96   	LDA $96    	; temp storage for item/spell/type/etc. IDs; ... yup, still item ID
0x019C21|$06:$9C11:C9 43   	CMP #$43   	; Crest ID #$43: Water Crest
0x019C23|$06:$9C13:D0 04   	BNE $9C19  
0x019C25|$06:$9C15:A0 0A   	LDY #$0A   	; offset from $9F5F for start of "Water Crest"
0x019C27|$06:$9C17:D0 0A   	BNE $9C23  
; control flow target (from $9C13)
0x019C29|$06:$9C19:C9 40   	CMP #$40   	; Crest ID #$40: Sun Crest
0x019C2B|$06:$9C1B:D0 04   	BNE $9C21  	; #$44 = Life Crest, #$41, #$42 = Life Crest too :p
0x019C2D|$06:$9C1D:A0 00   	LDY #$00   	; offset from $9F5F for start of "Sun Crest"
0x019C2F|$06:$9C1F:F0 02   	BEQ $9C23  
; control flow target (from $9C1B)
0x019C31|$06:$9C21:A0 16   	LDY #$16   	; offset from $9F5F for start of "Life Crest"
; copy crest name (terminated by #$FA) to $5A,X
; control flow target (from $9C17, $9C1F)
0x019C33|$06:$9C23:A2 00   	LDX #$00   
; control flow target (from $9C2E)
0x019C35|$06:$9C25:B9 5F 9F	LDA $9F5F,Y	; Crest Names
0x019C38|$06:$9C28:95 5A   	STA $5A,X  	; Crest/direction name write buffer start
0x019C3A|$06:$9C2A:C8      	INY        
0x019C3B|$06:$9C2B:E8      	INX        
0x019C3C|$06:$9C2C:C9 FA   	CMP #$FA   
0x019C3E|$06:$9C2E:D0 F5   	BNE $9C25  
; call to code in a different bank ($0F:$FA2E)
0x019C40|$06:$9C30:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x019C43|$06:$9C33:4E	; String ID #$014E: Thou hast found the [item-F9].[end-FC]

; data -> code
0x019C44|$06:$9C34:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; generate randomized gold amount for treasure ID in A
; control flow target (from $9C0D)
0x019C47|$06:$9C37:38      	SEC        
0x019C48|$06:$9C38:E9 45   	SBC #$45   	; subtract treasure offset to get index
0x019C4A|$06:$9C3A:85 8F   	STA $8F    	; A = A * 3 (treasure list is 3 bytes per item)
0x019C4C|$06:$9C3C:0A      	ASL        
0x019C4D|$06:$9C3D:18      	CLC        
0x019C4E|$06:$9C3E:65 8F   	ADC $8F    
0x019C50|$06:$9C40:48      	PHA        
; call to code in a different bank ($0F:$C3AB)
0x019C51|$06:$9C41:20 AB C3	JSR $C3AB  	; generate a random number and store it in $32-$33 (two passes)
0x019C54|$06:$9C44:68      	PLA        
0x019C55|$06:$9C45:A8      	TAY        
0x019C56|$06:$9C46:B9 3A 9F	LDA $9F3A,Y	; random treasure chest gold amount; fetch maximum bonus gold amount
0x019C59|$06:$9C49:25 32   	AND $32    	; RNG byte 0; AND with random number to make a randomized bonus gold amount
0x019C5B|$06:$9C4B:18      	CLC        
0x019C5C|$06:$9C4C:79 38 9F	ADC $9F38,Y	; base treasure chest gold amount, low byte; add random bonus amount to low byte of base gold amount
0x019C5F|$06:$9C4F:85 8F   	STA $8F    	; store to $8F for later use
0x019C61|$06:$9C51:B9 39 9F	LDA $9F39,Y	; base treasure chest gold amount, high byte; load high byte of base gold amount
0x019C64|$06:$9C54:69 00   	ADC #$00   	; add carry from low byte
0x019C66|$06:$9C56:85 90   	STA $90    	; store to $90 for later use
; add $8F-$90 to party gold, capped at $FFFF, and display String ID #$0048: And earned [number] piece[(s)] of gold.[end-FC]
; control flow target (from $9C78)
0x019C68|$06:$9C58:20 F5 8C	JSR $8CF5  	; add $8F-$90 to party gold, capped at $FFFF
; call to code in a different bank ($0F:$FA2A)
0x019C6B|$06:$9C5B:20 2A FA	JSR $FA2A  	; display string ID specified by next byte

; code -> data
; indirect data load target
0x019C6E|$06:$9C5E:48	; String ID #$0048: And earned [number] piece[(s)] of gold.[end-FC]

; data -> code
0x019C6F|$06:$9C5F:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; find a regular item
; control flow target (from $9C09)
; call to code in a different bank ($0F:$FA2E)
0x019C72|$06:$9C62:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x019C75|$06:$9C65:04	; String ID #$0104: And there [name] discovered the [item]![end-FC]

; data -> code
0x019C76|$06:$9C66:A5 96   	LDA $96    	; temp storage for item/spell/type/etc. IDs; item ID
0x019C78|$06:$9C68:C9 06   	CMP #$06   	; Item ID #$06: Copper Sword
0x019C7A|$06:$9C6A:D0 0F   	BNE $9C7B  
0x019C7C|$06:$9C6C:A9 00   	LDA #$00   	; Midenhall
0x019C7E|$06:$9C6E:85 97   	STA $97    	; subject hero ID $97
0x019C80|$06:$9C70:20 7E 8D	JSR $8D7E  	; given hero ID in $97 and item ID in $96, try to add item to first empty slot in hero's inventory; SEC if added, CLC if no empty slots
0x019C83|$06:$9C73:A9 32   	LDA #$32   	; at this point in the game, Midenhall is incapable of having a full inventory, so no need to check C; #$32 = 50 Gold
0x019C85|$06:$9C75:20 2A 8D	JSR $8D2A  	; set $8F-$90 to A-#$00
0x019C88|$06:$9C78:4C 58 9C	JMP $9C58  	; add $8F-$90 to party gold, capped at $FFFF, and display String ID #$0048: And earned [number] piece[(s)] of gold.[end-FC]

; control flow target (from $9C6A)
0x019C8B|$06:$9C7B:A5 95   	LDA $95    	; ID for [item] and [spell] control codes; item ID
0x019C8D|$06:$9C7D:8D 4C 61	STA $614C  	; found item ID
; call to code in a different bank ($0F:$F6CE)
0x019C90|$06:$9C80:20 CE F6	JSR $F6CE  	; return number of party members - 1 in A/X
0x019C93|$06:$9C83:85 C9   	STA $C9    	; number of party members - 1
0x019C95|$06:$9C85:E6 C9   	INC $C9    	; number of party members
0x019C97|$06:$9C87:A9 00   	LDA #$00   
0x019C99|$06:$9C89:85 97   	STA $97    	; subject hero ID $97
; try to add item to party member's inventory
; control flow target (from $9C99)
0x019C9B|$06:$9C8B:20 7E 8D	JSR $8D7E  	; given hero ID in $97 and item ID in $96, try to add item to first empty slot in hero's inventory; SEC if added, CLC if no empty slots
0x019C9E|$06:$9C8E:90 03   	BCC $9C93  	; branch if party member has no room
0x019CA0|$06:$9C90:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; control flow target (from $9C8E)
0x019CA3|$06:$9C93:E6 97   	INC $97    	; subject hero ID $97
0x019CA5|$06:$9C95:A5 97   	LDA $97    	; subject hero ID $97
0x019CA7|$06:$9C97:C5 C9   	CMP $C9    
; if more party members to try, try them
0x019CA9|$06:$9C99:D0 F0   	BNE $9C8B  	; try to add item to party member's inventory
0x019CAB|$06:$9C9B:A9 00   	LDA #$00   
0x019CAD|$06:$9C9D:85 97   	STA $97    	; subject hero ID $97
0x019CAF|$06:$9C9F:C6 C9   	DEC $C9    	; number of party members
0x019CB1|$06:$9CA1:A5 C9   	LDA $C9    	; number of party members - 1
0x019CB3|$06:$9CA3:F0 02   	BEQ $9CA7  	; useless op; #$80 and #$00 are identical as far as $FC50 is concerned
0x019CB5|$06:$9CA5:A9 80   	LDA #$80   
; control flow target (from $9CA3)
; call to code in a different bank ($0F:$FC50)
0x019CB7|$06:$9CA7:20 50 FC	JSR $FC50  	; print name of hero given by low 2 bits of A to $6119, terminated by #$FA
; call to code in a different bank ($0F:$FA2E)
0x019CBA|$06:$9CAA:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x019CBD|$06:$9CAD:08	; String ID #$0108: [wait][name] can carry no more. Dost thou wish to throw something away?[FD][FD][end-FC]

; data -> code
0x019CBE|$06:$9CAE:20 D0 9A	JSR $9AD0  	; open YES/NO menu, return selected option in A
0x019CC1|$06:$9CB1:C9 00   	CMP #$00   	; YES
0x019CC3|$06:$9CB3:F0 0C   	BEQ $9CC1  
; give up new item
; control flow target (from $9CCE, $9CEC)
0x019CC5|$06:$9CB5:AD 4C 61	LDA $614C  	; found item ID; useless op; $95 hasn't changed since we copied it to $614C
0x019CC8|$06:$9CB8:85 95   	STA $95    	; ID for [item] and [spell] control codes
; call to code in a different bank ($0F:$FA2E)
0x019CCA|$06:$9CBA:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x019CCD|$06:$9CBD:09	; String ID #$0109: [name] gave up the [item].[end-FC]

; data -> code
0x019CCE|$06:$9CBE:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; control flow target (from $9CB3)
0x019CD1|$06:$9CC1:A5 C9   	LDA $C9    	; number of party members - 1
0x019CD3|$06:$9CC3:F0 0D   	BEQ $9CD2  	; if Midenhall's alone, no need to pick a party member
; control flow target (from $9CEE)
; call to code in a different bank ($0F:$FA2E)
0x019CD5|$06:$9CC5:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x019CD8|$06:$9CC8:0A	; String ID #$010A: Who shall throw something away?[FD][FD][end-FC]

; data -> code
; call to code in a different bank ($0F:$F55D)
0x019CD9|$06:$9CC9:20 5D F5	JSR $F55D  	; display appropriate main ITEM hero select menu
0x019CDC|$06:$9CCC:C9 FF   	CMP #$FF   
0x019CDE|$06:$9CCE:F0 E5   	BEQ $9CB5  	; give up new item
0x019CE0|$06:$9CD0:85 97   	STA $97    	; subject hero ID $97
; control flow target (from $9CC3, $9CFD, $9D12)
; call to code in a different bank ($0F:$FA2E)
0x019CE2|$06:$9CD2:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x019CE5|$06:$9CD5:0B	; String ID #$010B: What shall thou throw away?[FD][FD][end-FC]

; data -> code
0x019CE6|$06:$9CD6:A5 97   	LDA $97    	; subject hero ID $97
; call to code in a different bank ($0F:$F5FE)
0x019CE8|$06:$9CD8:20 FE F5	JSR $F5FE  	; given a hero ID in A, open hero's item list and return selected item ID (or #$FE if they have no items)
0x019CEB|$06:$9CDB:48      	PHA        	; item ID to drop
0x019CEC|$06:$9CDC:8A      	TXA        
0x019CED|$06:$9CDD:48      	PHA        	; save X
0x019CEE|$06:$9CDE:A9 03   	LDA #$03   
; call to code in a different bank ($0F:$CF6A)
0x019CF0|$06:$9CE0:20 6A CF	JSR $CF6A  	; wipe selected menu region
0x019CF3|$06:$9CE3:68      	PLA        	; restore X
0x019CF4|$06:$9CE4:AA      	TAX        
0x019CF5|$06:$9CE5:68      	PLA        	; item ID to drop
0x019CF6|$06:$9CE6:C9 FF   	CMP #$FF   
0x019CF8|$06:$9CE8:D0 06   	BNE $9CF0  
0x019CFA|$06:$9CEA:A5 C9   	LDA $C9    	; number of party members - 1
0x019CFC|$06:$9CEC:F0 C7   	BEQ $9CB5  	; give up new item
0x019CFE|$06:$9CEE:D0 D5   	BNE $9CC5  
; control flow target (from $9CE8)
0x019D00|$06:$9CF0:86 49   	STX $49    	; object hero/target/item/string ID $49
0x019D02|$06:$9CF2:85 95   	STA $95    	; ID for [item] and [spell] control codes
0x019D04|$06:$9CF4:20 FC 9A	JSR $9AFC  	; given hero ID in $97 and hero inventory index in $49, set Z if item is equipped and cursed, clear if not
0x019D07|$06:$9CF7:D0 07   	BNE $9D00  
; call to code in a different bank ($0F:$FA2E)
0x019D09|$06:$9CF9:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x019D0C|$06:$9CFC:12	; String ID #$0112: It cannot be removed due to the curse.[end-FC]

; data -> code
0x019D0D|$06:$9CFD:4C D2 9C	JMP $9CD2  

; control flow target (from $9CF7)
0x019D10|$06:$9D00:A5 95   	LDA $95    	; ID for [item] and [spell] control codes; item ID to throw away
0x019D12|$06:$9D02:29 3F   	AND #$3F   	; strip off the equipped bit
0x019D14|$06:$9D04:0A      	ASL        
0x019D15|$06:$9D05:A8      	TAY        
0x019D16|$06:$9D06:B9 FC 9F	LDA $9FFC,Y	; Item Prices, low byte
0x019D19|$06:$9D09:19 FD 9F	ORA $9FFD,Y	; Item Prices, high byte
0x019D1C|$06:$9D0C:D0 07   	BNE $9D15  	; if price is 0 G, it's a quest item
; call to code in a different bank ($0F:$FA2E)
0x019D1E|$06:$9D0E:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x019D21|$06:$9D11:0E	; String ID #$010E: Thou should not throw that away.[end-FC]

; data -> code
0x019D22|$06:$9D12:4C D2 9C	JMP $9CD2  

; control flow target (from $9D0C)
0x019D25|$06:$9D15:A5 97   	LDA $97    	; subject hero ID $97
0x019D27|$06:$9D17:0A      	ASL        	; 8 items per hero
0x019D28|$06:$9D18:0A      	ASL        
0x019D29|$06:$9D19:0A      	ASL        
0x019D2A|$06:$9D1A:18      	CLC        
0x019D2B|$06:$9D1B:65 49   	ADC $49    	; object hero/target/item/string ID $49
0x019D2D|$06:$9D1D:AA      	TAX        
0x019D2E|$06:$9D1E:A5 96   	LDA $96    	; temp storage for item/spell/type/etc. IDs; item ID to gain
0x019D30|$06:$9D20:9D 00 06	STA $0600,X	; Midenhall inventory item 1 (| #$40 if equipped)
0x019D33|$06:$9D23:A9 80   	LDA #$80   	; Alive
0x019D35|$06:$9D25:20 9A 8D	JSR $8D9A  	; given hero ID in $97, and status in A, SEC if hero has that status, CLC otherwise
0x019D38|$06:$9D28:B0 12   	BCS $9D3C  
0x019D3A|$06:$9D2A:20 EB 9A	JSR $9AEB  	; using name of first living hero, display String ID #$0120: [name] [end-FF]
0x019D3D|$06:$9D2D:20 25 8D	JSR $8D25  	; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA
; call to code in a different bank ($0F:$FA2E)
0x019D40|$06:$9D30:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x019D43|$06:$9D33:0F	; String ID #$010F: threw away [name]'s [item] and gave [end-FF]

; data -> code
0x019D44|$06:$9D34:A5 96   	LDA $96    	; temp storage for item/spell/type/etc. IDs
0x019D46|$06:$9D36:85 95   	STA $95    	; ID for [item] and [spell] control codes
0x019D48|$06:$9D38:A9 10   	LDA #$10   	; String ID #$0110: the [item] to ghost of [name].[end-FC]
0x019D4A|$06:$9D3A:D0 0D   	BNE $9D49  
; control flow target (from $9D28)
0x019D4C|$06:$9D3C:20 25 8D	JSR $8D25  	; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA
; call to code in a different bank ($0F:$FA2E)
0x019D4F|$06:$9D3F:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x019D52|$06:$9D42:0C	; String ID #$010C: [name] threw away the [item].[end-FC]

; data -> code
0x019D53|$06:$9D43:A5 96   	LDA $96    	; temp storage for item/spell/type/etc. IDs
0x019D55|$06:$9D45:85 95   	STA $95    	; ID for [item] and [spell] control codes
0x019D57|$06:$9D47:A9 0D   	LDA #$0D   	; String ID #$010D: [name] obtained the [item].[end-FC]
; control flow target (from $9D3A)
; call to code in a different bank ($0F:$FA4E)
0x019D59|$06:$9D49:20 4E FA	JSR $FA4E  	; display string ID specified by A + #$0100
0x019D5C|$06:$9D4C:4C 48 95	JMP $9548  	; end TALK/ITEM routines

; given hero ID in $97, set A to the offset of that hero's data in $062D
; control flow target (from $9BC5, $9BF2)
0x019D5F|$06:$9D4F:A6 97   	LDX $97    	; subject hero ID $97
0x019D61|$06:$9D51:BD 55 9D	LDA $9D55,X	; pre-computed offsets for the start of each hero's data at $062D
0x019D64|$06:$9D54:60      	RTS        


; code -> data
; pre-computed offsets for the start of each hero's data at $062D
; indexed data load target (from $9D51)
0x019D65|$06:$9D55:00	; Midenhall
0x019D66|$06:$9D56:12	; Cannock
0x019D67|$06:$9D57:24	; Moonbrooke

; data -> code
; scan treasure list at ($0C), returning in A/$95/$96 the item ID corresponding to party's current map ID/position or #$00 if there is no item or you're not allowed to get it
; control flow target (from $9B3F, $9B73, $9DFB)
0x019D68|$06:$9D58:A0 00   	LDY #$00   
0x019D6A|$06:$9D5A:B1 0C   	LDA ($0C),Y	; read map ID
0x019D6C|$06:$9D5C:C9 FF   	CMP #$FF   	; #$FF => end of list
0x019D6E|$06:$9D5E:D0 03   	BNE $9D63  
0x019D70|$06:$9D60:4C FE 9D	JMP $9DFE  	; end of treasure list or you aren't allowed to get the item again; set $95 = $96 = #$00 and RTS

; control flow target (from $9D5E)
0x019D73|$06:$9D63:C5 31   	CMP $31    	; current map ID
0x019D75|$06:$9D65:F0 03   	BEQ $9D6A  	; map ID matches, start checking position
0x019D77|$06:$9D67:4C EE 9D	JMP $9DEE  	; increment 16-bit $0C-$0D by 4 (move to next treasure record) and loop to check next treasure

; map ID matches, start checking position
; control flow target (from $9D65)
0x019D7A|$06:$9D6A:C8      	INY        
0x019D7B|$06:$9D6B:B1 0C   	LDA ($0C),Y	; treasure X-pos
0x019D7D|$06:$9D6D:C5 16   	CMP $16    	; current map X-pos (1)
0x019D7F|$06:$9D6F:D0 7D   	BNE $9DEE  	; increment 16-bit $0C-$0D by 4 (move to next treasure record) and loop to check next treasure
0x019D81|$06:$9D71:C8      	INY        
0x019D82|$06:$9D72:B1 0C   	LDA ($0C),Y	; treasure Y-pos
0x019D84|$06:$9D74:C5 17   	CMP $17    	; current map Y-pos (1)
0x019D86|$06:$9D76:D0 76   	BNE $9DEE  	; increment 16-bit $0C-$0D by 4 (move to next treasure record) and loop to check next treasure
0x019D88|$06:$9D78:C8      	INY        
0x019D89|$06:$9D79:B1 0C   	LDA ($0C),Y	; item ID
0x019D8B|$06:$9D7B:D0 03   	BNE $9D80  	; map/position is valid and there is an item here
0x019D8D|$06:$9D7D:4C 00 9E	JMP $9E00  	; store item ID in $95 and $96 and RTS

; map/position is valid and there is an item here
; control flow target (from $9D7B)
0x019D90|$06:$9D80:C9 45   	CMP #$45   	; randomized gold chests have IDs >= #$45
0x019D92|$06:$9D82:B0 7C   	BCS $9E00  	; store item ID in $95 and $96 and RTS
0x019D94|$06:$9D84:85 96   	STA $96    	; temp storage for item/spell/type/etc. IDs; item ID
0x019D96|$06:$9D86:C9 25   	CMP #$25   	; Item ID #$25: Tresures
0x019D98|$06:$9D88:D0 09   	BNE $9D93  
0x019D9A|$06:$9D8A:A9 2A   	LDA #$2A   	; Item ID #$2A: Echoing Flute
0x019D9C|$06:$9D8C:20 69 A3	JSR $A369  	; check for item A in party inventory, returning inventory index of item in A/X if found, #$FF if not
0x019D9F|$06:$9D8F:10 6D   	BPL $9DFE  	; end of treasure list or you aren't allowed to get the item again; set $95 = $96 = #$00 and RTS
0x019DA1|$06:$9D91:30 27   	BMI $9DBA  
; control flow target (from $9D88)
0x019DA3|$06:$9D93:C9 2B   	CMP #$2B   	; Item ID #$2B: Mirror of Ra
0x019DA5|$06:$9D95:D0 09   	BNE $9DA0  
0x019DA7|$06:$9D97:AD 51 06	LDA $0651  	; Moonbrooke status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence)
0x019DAA|$06:$9D9A:29 04   	AND #$04   	; pick out the In Party bit
0x019DAC|$06:$9D9C:D0 60   	BNE $9DFE  	; end of treasure list or you aren't allowed to get the item again; set $95 = $96 = #$00 and RTS
0x019DAE|$06:$9D9E:F0 1A   	BEQ $9DBA  
; control flow target (from $9D95)
0x019DB0|$06:$9DA0:C9 37   	CMP #$37   	; Item ID #$37: Golden Key
0x019DB2|$06:$9DA2:D0 16   	BNE $9DBA  
; the Golden Key is available in 2 places in Zahan; a dog points you to the one at (#$16, #$08), and the other one is at (#$12, #$04)
; you can only pick it up from one place at a time, however, depending on the position of the dog
0x019DB4|$06:$9DA4:A5 17   	LDA $17    	; current map Y-pos (1)
0x019DB6|$06:$9DA6:C9 04   	CMP #$04   
0x019DB8|$06:$9DA8:D0 09   	BNE $9DB3  
; the (#$12, #$04) Golden Key
0x019DBA|$06:$9DAA:AD 7C 05	LDA $057C  	; NPC #$08 X-pos; dog's X-pos
0x019DBD|$06:$9DAD:C9 12   	CMP #$12   
0x019DBF|$06:$9DAF:D0 3D   	BNE $9DEE  	; increment 16-bit $0C-$0D by 4 (move to next treasure record) and loop to check next treasure
0x019DC1|$06:$9DB1:F0 07   	BEQ $9DBA  
; the (#$16, #$08) Golden Key
; control flow target (from $9DA8)
0x019DC3|$06:$9DB3:AD 7C 05	LDA $057C  	; NPC #$08 X-pos; dog's X-pos
0x019DC6|$06:$9DB6:C9 12   	CMP #$12   
0x019DC8|$06:$9DB8:F0 34   	BEQ $9DEE  	; increment 16-bit $0C-$0D by 4 (move to next treasure record) and loop to check next treasure
; control flow target (from $9D91, $9D9E, $9DA2, $9DB1)
0x019DCA|$06:$9DBA:AD 24 9F	LDA $9F24  	; -> $06:$9F26: unique items
0x019DCD|$06:$9DBD:85 0C   	STA $0C    
0x019DCF|$06:$9DBF:AD 25 9F	LDA $9F25  
0x019DD2|$06:$9DC2:85 0D   	STA $0D    
0x019DD4|$06:$9DC4:A0 00   	LDY #$00   
0x019DD6|$06:$9DC6:A5 96   	LDA $96    	; temp storage for item/spell/type/etc. IDs; item ID
; control flow target (from $9DCF)
0x019DD8|$06:$9DC8:D1 0C   	CMP ($0C),Y	; compare against list of unique items
0x019DDA|$06:$9DCA:F0 08   	BEQ $9DD4  
0x019DDC|$06:$9DCC:C8      	INY        
0x019DDD|$06:$9DCD:C0 12   	CPY #$12   
0x019DDF|$06:$9DCF:D0 F7   	BNE $9DC8  	; if more items to check, check them
0x019DE1|$06:$9DD1:4C 00 9E	JMP $9E00  	; store item ID in $95 and $96 and RTS; happens if item is not unique

; control flow target (from $9DCA)
0x019DE4|$06:$9DD4:C9 40   	CMP #$40   	; we already handled IDs >= #$45, so this checks for Crests #$40 - #$44
0x019DE6|$06:$9DD6:B0 2D   	BCS $9E05  	; handle finding a Crest
0x019DE8|$06:$9DD8:20 60 A3	JSR $A360  	; check for item A (possibly equipped) in party inventory, returning inventory index of item in A/X if found, #$FF if not
0x019DEB|$06:$9DDB:10 21   	BPL $9DFE  	; end of treasure list or you aren't allowed to get the item again; set $95 = $96 = #$00 and RTS
0x019DED|$06:$9DDD:A5 96   	LDA $96    	; temp storage for item/spell/type/etc. IDs; item ID
0x019DEF|$06:$9DDF:C9 24   	CMP #$24   	; Item ID #$24: Token of Erdrick
0x019DF1|$06:$9DE1:D0 1D   	BNE $9E00  	; store item ID in $95 and $96 and RTS
0x019DF3|$06:$9DE3:A9 23   	LDA #$23   	; Item ID #$23: Helmet of Erdrick
0x019DF5|$06:$9DE5:20 60 A3	JSR $A360  	; check for item A (possibly equipped) in party inventory, returning inventory index of item in A/X if found, #$FF if not
0x019DF8|$06:$9DE8:10 14   	BPL $9DFE  	; end of treasure list or you aren't allowed to get the item again; set $95 = $96 = #$00 and RTS
0x019DFA|$06:$9DEA:A9 24   	LDA #$24   	; Item ID #$24: Token of Erdrick
0x019DFC|$06:$9DEC:D0 12   	BNE $9E00  	; store item ID in $95 and $96 and RTS
; increment 16-bit $0C-$0D by 4 (move to next treasure record) and loop to check next treasure
; control flow target (from $9D67, $9D6F, $9D76, $9DAF, $9DB8)
0x019DFE|$06:$9DEE:A5 0C   	LDA $0C    
0x019E00|$06:$9DF0:18      	CLC        
0x019E01|$06:$9DF1:69 04   	ADC #$04   
0x019E03|$06:$9DF3:85 0C   	STA $0C    
0x019E05|$06:$9DF5:A5 0D   	LDA $0D    
0x019E07|$06:$9DF7:69 00   	ADC #$00   
0x019E09|$06:$9DF9:85 0D   	STA $0D    
0x019E0B|$06:$9DFB:4C 58 9D	JMP $9D58  	; scan treasure list at ($0C), returning in A/$95/$96 the item ID corresponding to party's current map ID/position or #$00 if there is no item or you're not allowed to get it

; end of treasure list or you aren't allowed to get the item again; set $95 = $96 = #$00 and RTS
; control flow target (from $9D60, $9D8F, $9D9C, $9DDB, $9DE8, $9E1C)
0x019E0E|$06:$9DFE:A9 00   	LDA #$00   
; store item ID in $95 and $96 and RTS
; control flow target (from $9D7D, $9D82, $9DD1, $9DE1, $9DEC, $9E28)
0x019E10|$06:$9E00:85 96   	STA $96    	; temp storage for item/spell/type/etc. IDs
0x019E12|$06:$9E02:85 95   	STA $95    	; ID for [item] and [spell] control codes
0x019E14|$06:$9E04:60      	RTS        

; handle finding a Crest
; control flow target (from $9DD6)
0x019E15|$06:$9E05:C9 43   	CMP #$43   	; Crest ID #$43: Water Crest
0x019E17|$06:$9E07:D0 04   	BNE $9E0D  
0x019E19|$06:$9E09:A9 08   	LDA #$08   	; Crest ID #$43: Water Crest sets bit #$08
0x019E1B|$06:$9E0B:D0 0A   	BNE $9E17  
; control flow target (from $9E07)
0x019E1D|$06:$9E0D:C9 40   	CMP #$40   
0x019E1F|$06:$9E0F:D0 04   	BNE $9E15  
0x019E21|$06:$9E11:A9 01   	LDA #$01   	; Crest ID #$40: Sun Crest sets bit #$01
0x019E23|$06:$9E13:D0 02   	BNE $9E17  
; control flow target (from $9E0F)
0x019E25|$06:$9E15:A9 10   	LDA #$10   	; by process of elimination, Crest ID #$44: Life Crest sets bit #$10
; control flow target (from $9E0B, $9E13)
0x019E27|$06:$9E17:85 0C   	STA $0C    
0x019E29|$06:$9E19:2D 12 01	AND $0112  	; Crests found bit field (#$10 = Life, #$80 = Water, #$04 = Moon, #$02 = Stars, #$01 = Sun)
0x019E2C|$06:$9E1C:D0 E0   	BNE $9DFE  	; end of treasure list or you aren't allowed to get the item again; set $95 = $96 = #$00 and RTS
0x019E2E|$06:$9E1E:A5 0C   	LDA $0C    
0x019E30|$06:$9E20:0D 12 01	ORA $0112  	; Crests found bit field (#$10 = Life, #$80 = Water, #$04 = Moon, #$02 = Stars, #$01 = Sun)
0x019E33|$06:$9E23:8D 12 01	STA $0112  	; Crests found bit field (#$10 = Life, #$80 = Water, #$04 = Moon, #$02 = Stars, #$01 = Sun); mark Crest as found
0x019E36|$06:$9E26:A5 96   	LDA $96    	; temp storage for item/spell/type/etc. IDs; item ID
0x019E38|$06:$9E28:D0 D6   	BNE $9E00  	; store item ID in $95 and $96 and RTS

; code -> data
; -> $06:$9E2E: Treasure List 1 (map ID, X-pos, Y-pos, item ID)
; data load target (from $9B35)
0x019E3A|$06:$9E2A:2E
; data load target (from $9B3A)
0x019E3B|$06:$9E2B:   9E	; $06:$9E2E; Treasure List 1 (map ID, X-pos, Y-pos, item ID)
; -> $06:$9F07: Treasure List 2 (map ID, X-pos, Y-pos, item ID)
; data load target (from $9B69)
0x019E3C|$06:$9E2C:07
; data load target (from $9B6E)
0x019E3D|$06:$9E2D:   9F	; $06:$9F07; Treasure List 2 (map ID, X-pos, Y-pos, item ID)
; Treasure List 1 (map ID, X-pos, Y-pos, item ID)
; indirect data load target (via $9E2A)
0x019E3E|$06:$9E2E:03 0E 02 06	; Item ID #$06: Copper Sword (Midenhall Castle)
0x019E42|$06:$9E32:03 13 0E 35	; Item ID #$35: Wing of Wyvern (Midenhall Castle)
0x019E46|$06:$9E36:03 14 0E 3C	; Item ID #$3C: Medical Herb (Midenhall Castle)
0x019E4A|$06:$9E3A:03 13 0F 47	; Item ID #$47: 50 - 113 G (Midenhall Castle)
0x019E4E|$06:$9E3E:03 14 0F 00	; Item ID #$00: Empty (Midenhall Castle)
0x019E52|$06:$9E42:03 15 0F 24	; Item ID #$24: Token of Erdrick (Midenhall Castle)

0x019E56|$06:$9E46:06 0A 0A 20	; Item ID #$20: Shield of Erdrick (Cannock Castle)

0x019E5A|$06:$9E4A:0F 06 14 1A	; Item ID #$1A: Armor of Gaia (Osterfair)
0x019E5E|$06:$9E4E:0F 06 16 02	; Item ID #$02: Magic Knife (Osterfair)

0x019E62|$06:$9E52:10 02 02 2D	; Item ID #$2D: Magic Loom (Zahan)

0x019E66|$06:$9E56:18 07 06 33	; Item ID #$33: Lottery Ticket (Charlock Castle)
0x019E6A|$06:$9E5A:18 08 06 3C	; Item ID #$3C: Medical Herb (Charlock Castle)
0x019E6E|$06:$9E5E:18 06 07 49	; Item ID #$49: 100 - 163 G (Charlock Castle)
0x019E72|$06:$9E62:18 07 07 35	; Item ID #$35: Wing of Wyvern (Charlock Castle)

0x019E76|$06:$9E66:2C 12 0C 3C	; Item ID #$3C: Medical Herb (Lake Cave B1)
0x019E7A|$06:$9E6A:2C 0E 1C 45	; Item ID #$45: 15 - 30 G (Lake Cave B1)
0x019E7E|$06:$9E6E:2D 0E 0C 3C	; Item ID #$3C: Medical Herb (Lake Cave B2)
0x019E82|$06:$9E72:2D 14 1A 46	; Item ID #$46: 31 - 46 G (Lake Cave B2)
0x019E86|$06:$9E76:2D 02 14 3B	; Item ID #$3B: Antidote Herb (Lake Cave B2)
0x019E8A|$06:$9E7A:2D 14 1C 35	; Item ID #$35: Wing of Wyvern (Lake Cave B2)
0x019E8E|$06:$9E7E:2D 14 14 38	; Item ID #$38: Silver Key (Lake Cave B2)

0x019E92|$06:$9E82:2E 18 02 4B	; Item ID #$4B: 111 - 142 G (Sea Cave B1)
0x019E96|$06:$9E86:2E 02 0A 3C	; Item ID #$3C: Medical Herb (Sea Cave B1)
0x019E9A|$06:$9E8A:2F 20 0E FF	; Item ID #$FF: Trap (Sea Cave B2)
0x019E9E|$06:$9E8E:2F 0E 18 48	; Item ID #$48: 51 - 82 G (Sea Cave B2)
0x019EA2|$06:$9E92:31 02 02 49	; Item ID #$49: 100 - 163 G (Sea Cave B3(2))
0x019EA6|$06:$9E96:31 0A 02 FF	; Item ID #$FF: Trap (Sea Cave B3(2))
0x019EAA|$06:$9E9A:32 10 0E 30	; Item ID #$30: Dragon's Bane (Sea Cave B4)
0x019EAE|$06:$9E9E:33 16 02 28	; Item ID #$28: Eye of Malroth (Sea Cave B5)

0x019EB2|$06:$9EA2:34 0E 10 0F	; Item ID #$0F: Sword of Erdrick (Charlock Castle)

0x019EB6|$06:$9EA6:37 10 10 44	; Item ID #$44: Life Crest (Cave to Rhone B1)
0x019EBA|$06:$9EAA:3C 0C 1A 4B	; Item ID #$4B: 111 - 142 G (Cave to Rhone 3F)
0x019EBE|$06:$9EAE:3C 0E 32 10	; Item ID #$10: Thunder Sword (Cave to Rhone 3F)
0x019EC2|$06:$9EB2:3C 1E 2C 33	; Item ID #$33: Lottery Ticket (Cave to Rhone 3F)
0x019EC6|$06:$9EB6:3E 18 0E 1B	; Item ID #$1B: Armor of Erdrick (Cave to Rhone 5F)
0x019ECA|$06:$9EBA:3E 1A 18 4D	; Item ID #$4D: 111 - 174 G (Cave to Rhone 5F)
0x019ECE|$06:$9EBE:3E 12 20 FF	; Item ID #$FF: Trap (Cave to Rhone 5F)
0x019ED2|$06:$9EC2:3E 12 24 4A	; Item ID #$4A: 561 - 624 G (Cave to Rhone 5F)

0x019ED6|$06:$9EC6:40 02 0E 3C	; Item ID #$3C: Medical Herb (Spring Of Bravery)
0x019EDA|$06:$9ECA:40 0E 1A 45	; Item ID #$45: 15 - 30 G (Spring Of Bravery)
0x019EDE|$06:$9ECE:40 16 1C 3C	; Item ID #$3C: Medical Herb (Spring Of Bravery)

0x019EE2|$06:$9ED2:49 12 14 3C	; Item ID #$3C: Medical Herb (Moon Tower 1F)
0x019EE6|$06:$9ED6:49 10 02 26	; Item ID #$26: Moon Fragment (Moon Tower 1F)
0x019EEA|$06:$9EDA:4B 02 02 50	; Item ID #$50: 101 - 132 G (Moon Tower 3F)
0x019EEE|$06:$9EDE:4C 04 0C 01	; Item ID #$01: Bamboo Stick (Moon Tower 4F)
0x019EF2|$06:$9EE2:4C 02 0C 4F	; Item ID #$4F: 251 - 282 G (Moon Tower 4F)

0x019EF6|$06:$9EE6:50 14 0A 51	; Item ID #$51: 38 - 53 G (Lighthouse 1F)
0x019EFA|$06:$9EEA:51 1E 1C 00	; Item ID #$00: Empty (triggers Star Crest battle) (Lighthouse 2F)
0x019EFE|$06:$9EEE:53 0C 16 4E	; Item ID #$4E: 120 - 135 G (Lighthouse 4F)
0x019F02|$06:$9EF2:54 16 02 34	; Item ID #$34: Fairy Water (Lighthouse 5F)
0x019F06|$06:$9EF6:54 0E 12 07	; Item ID #$07: Chain Sickle (Lighthouse 5F)

0x019F0A|$06:$9EFA:58 10 14 3C	; Item ID #$3C: Medical Herb (Wind Tower 1F)
0x019F0E|$06:$9EFE:59 02 04 2E	; Item ID #$2E: Cloak of Wind (Wind Tower 2F)
0x019F12|$06:$9F02:5A 06 10 4C	; Item ID #$4C: 41 - 56 G (Wind Tower 3F)
; indirect data load target
0x019F16|$06:$9F06:FF	; end of Treasure List 1
; Treasure List 2 (map ID, X-pos, Y-pos, item ID)
; indirect data load target (via $9E2C)
0x019F17|$06:$9F07:01 92 6D 2B	; Item ID #$2B: Mirror of Ra (Swamp SE of Hamlin)
0x019F1B|$06:$9F0B:01 1E FC 25	; Item ID #$25: Tresures (Ocean NW of Tantegal)
0x019F1F|$06:$9F0F:01 BB DD 29	; Item ID #$29: Leaf of World Tree (Island E of Wellgarth)
0x019F23|$06:$9F13:08 05 01 43	; Item ID #$43: Water Crest (Hamlin)
0x019F27|$06:$9F17:1E 08 00 40	; Item ID #$40: Sun Crest (Monolith E of Wellgarth)
0x019F2B|$06:$9F1B:10 12 04 37	; Item ID #$37: Golden Key location #1 (Zahan)
0x019F2F|$06:$9F1F:10 16 08 37	; Item ID #$37: Golden Key location #2 (Zahan)
; indirect data load target
0x019F33|$06:$9F23:FF	; end of Treasure List 2
; -> $06:$9F26: unique items
; data load target (from $9DBA)
0x019F34|$06:$9F24:26
; data load target (from $9DBF)
0x019F35|$06:$9F25:   9F	; $06:$9F26; unique items
; unique items
; indirect data load target (via $9F24)
0x019F36|$06:$9F26:38	; Item ID #$38: Silver Key
0x019F37|$06:$9F27:25	; Item ID #$25: Tresures
0x019F38|$06:$9F28:29	; Item ID #$29: Leaf of The World Tree
0x019F39|$06:$9F29:24	; Item ID #$24: Token of Erdrick
0x019F3A|$06:$9F2A:20	; Item ID #$20: Shield of Erdrick
0x019F3B|$06:$9F2B:43	; Crest ID #$43: Water Crest
0x019F3C|$06:$9F2C:1A	; Item ID #$1A: Armor of Gaia
0x019F3D|$06:$9F2D:10	; Item ID #$10: Thunder Sword
0x019F3E|$06:$9F2E:40	; Crest ID #$40: Sun Crest
0x019F3F|$06:$9F2F:28	; Item ID #$28: Eye of Malroth
0x019F40|$06:$9F30:0F	; Item ID #$0F: Sword of Erdrick
0x019F41|$06:$9F31:44	; Crest ID #$44: Life Crest
0x019F42|$06:$9F32:1B	; Item ID #$1B: Armor of Erdrick
0x019F43|$06:$9F33:26	; Item ID #$26: Moon Fragment
0x019F44|$06:$9F34:2E	; Item ID #$2E: Cloak of Wind
0x019F45|$06:$9F35:2B	; Item ID #$2B: Mirror of Ra
0x019F46|$06:$9F36:37	; Item ID #$37: Golden Key
0x019F47|$06:$9F37:2D	; Item ID #$2D: Magic Loom
; base treasure chest gold amount, low byte
; random gold amounts
; indexed data load target (from $9C4C)
0x019F48|$06:$9F38:0F
; base treasure chest gold amount, high byte
; indexed data load target (from $9C51)
0x019F49|$06:$9F39:   00
; random treasure chest gold amount
; indexed data load target (from $9C46)
0x019F4A|$06:$9F3A:      0F	; Chest Gold ID #$45: 15 - 30 G
0x019F4B|$06:$9F3B:1F 00 0F	; Chest Gold ID #$46: 31 - 46 G
0x019F4E|$06:$9F3E:32 00 3F	; Chest Gold ID #$47: 50 - 113 G
0x019F51|$06:$9F41:33 00 1F	; Chest Gold ID #$48: 51 - 82 G
0x019F54|$06:$9F44:64 00 3F	; Chest Gold ID #$49: 100 - 163 G
0x019F57|$06:$9F47:31 02 3F	; Chest Gold ID #$4A: 561 - 624 G
0x019F5A|$06:$9F4A:6F 00 1F	; Chest Gold ID #$4B: 111 - 142 G
0x019F5D|$06:$9F4D:29 00 0F	; Chest Gold ID #$4C: 41 - 56 G
0x019F60|$06:$9F50:6F 00 3F	; Chest Gold ID #$4D: 111 - 174 G
0x019F63|$06:$9F53:78 00 0F	; Chest Gold ID #$4E: 120 - 135 G
0x019F66|$06:$9F56:FB 00 1F	; Chest Gold ID #$4F: 251 - 282 G
0x019F69|$06:$9F59:65 00 1F	; Chest Gold ID #$50: 101 - 132 G
0x019F6C|$06:$9F5C:26 00 0F	; Chest Gold ID #$51: 38 - 53 G
; Crest Names
; indexed data load target (from $9C25)
0x019F6F|$06:$9F5F:36 1E 17 5F 26 1B 0E 1C 1D FA	; "Sun Crest" + [end-FA]
0x019F79|$06:$9F69:3A 0A 1D 0E 1B 5F 26 1B 0E 1C 1D FA	; "Water Crest" + [end-FA]
0x019F85|$06:$9F75:2F 12 0F 0E 5F 26 1B 0E 1C 1D FA	; "Life Crest"  + [end-FA]
; Inn prices per party member
; indexed data load target (from $821F)
0x019F90|$06:$9F80:04	; Inn ID #$00, Map IDs #$00/#$03: Fake Midenhall/Midenhall 1F
0x019F91|$06:$9F81:06	; Inn ID #$01, Map ID #$05: Leftwyne
0x019F92|$06:$9F82:08	; Inn ID #$02, Map ID #$06: Cannock
0x019F93|$06:$9F83:0C	; Inn ID #$03, Map ID #$07: Hamlin
0x019F94|$06:$9F84:14	; Inn ID #$04, Map ID #$0B: Lianport
0x019F95|$06:$9F85:02	; Inn ID #$05, Map ID #$0C: Tantegel
0x019F96|$06:$9F86:19	; Inn ID #$06, Map ID #$0F: Osterfair
0x019F97|$06:$9F87:1E	; Inn ID #$07, Map ID #$10: Zahan
0x019F98|$06:$9F88:28	; Inn ID #$08, Map ID #$11: Tuhn / Map ID #$14: Wellgarth Underground
0x019F99|$06:$9F89:1E
; Weapon Shop inventories
; external indexed data load target (from $0F:$F266, $0F:$F278, $0F:$F299)
0x019F9A|$06:$9F8A:05 06 02 07 16 1C	; Shop ID #00, Weapons/Armor, Map ID #$05: Leftwyne
0x019FA0|$06:$9F90:07 08 0A 16 19 1E	; Shop ID #01, Weapons/Armor, Map ID #$07: Hamlin
0x019FA6|$06:$9F96:02 0A 03 19 12 1E	; Shop ID #02, Weapons/Armor, Map ID #$0B: Lianport
0x019FAC|$06:$9F9C:0A 0B 03 12 1E 22	; Shop ID #03, Weapons/Armor, Map ID #$0C: Tantegel
0x019FB2|$06:$9FA2:0A 0B 0D 12 18 22	; Shop ID #04, Weapons/Armor, Map ID #$0F: Osterfair
0x019FB8|$06:$9FA8:03 09 0D 18 1D 22	; Shop ID #05, Weapons/Armor, Map ID #$11: Tuhn
0x019FBE|$06:$9FAE:0B 0D 0E 14 1D 22	; Shop ID #06, Weapons/Armor, Map ID #$14: Wellgarth Underground
0x019FC4|$06:$9FB4:0B 03 0D 1E 1D 22	; Shop ID #07, Weapons/Armor, Map ID #$15: Beran
; Tool Shop inventories
0x019FCA|$06:$9FBA:3C 3B 00 00 00 00	; Shop ID #$00, Items, Map IDs #$00/#$03: Fake Midenhall/Midenhall 1F
0x019FD0|$06:$9FC0:3C 3B 35 00 00 00	; Shop ID #$01, Items, Map ID #$05: Leftwyne
0x019FD6|$06:$9FC6:3C 3B 35 34 00 00	; Shop ID #$02, Items, Map ID #$06: Cannock
0x019FDC|$06:$9FCC:3C 3B 35 34 00 00	; Shop ID #$03, Items, Map ID #$07: Hamlin
0x019FE2|$06:$9FD2:3C 3B 35 34 30 00	; Shop ID #$04, Items, Map ID #$0B: Lianport
0x019FE8|$06:$9FD8:3C 3B 35 34 30 00	; Shop ID #$05, Items, Map ID #$0C: Tantegel
0x019FEE|$06:$9FDE:3C 35 34 30 00 00	; Shop ID #$06, Items, Map ID #$10: Zahan
0x019FF4|$06:$9FE4:35 34 30 00 00 00	; Shop ID #$07, Items, Map ID #$11: Tuhn
0x019FFA|$06:$9FEA:3C 3B 34 30 00 00	; Shop ID #$08, Items, Map ID #$14: Wellgarth Underground, #1
0x01A000|$06:$9FF0:3C 3B 39 35 00 00	; Shop ID #$09, Items, Map ID #$14: Wellgarth Underground, #2
0x01A006|$06:$9FF6:3C 3B 35 34 00 00	; Shop ID #$0A, Items, Map ID #$15: Beran
; Item Prices, low byte
; indexed data load target (from $84D7, $84E9, $8D15, $8D51, $8D6C, $9A8B, $9D06)
; external indexed data load target (from $0F:$EED3)
0x01A00C|$06:$9FFC:00
; Item Prices, high byte
; indexed data load target (from $84DC, $84F1, $8D1D, $8D56, $8D74, $9A8E, $9D09)
; external indexed data load target (from $0F:$EED8)
0x01A00D|$06:$9FFD:   00	; Item ID #$00: (no item)
0x01A00E|$06:$9FFE:14 00	; Item ID #$01: Bamboo Stick
0x01A010|$06:$A000:C8 00	; Item ID #$02: Magic Knife
0x01A012|$06:$A002:C4 09	; Item ID #$03: Wizard’s Wand
0x01A014|$06:$A004:90 65	; Item ID #$04: Staff of Thunder
0x01A016|$06:$A006:3C 00	; Item ID #$05: Club
0x01A018|$06:$A008:64 00	; Item ID #$06: Copper Sword
0x01A01A|$06:$A00A:86 01	; Item ID #$07: Chain Sickle
0x01A01C|$06:$A00C:02 03	; Item ID #$08: Iron Spear
0x01A01E|$06:$A00E:A8 61	; Item ID #$09: Falcon Sword
0x01A020|$06:$A010:DC 05	; Item ID #$0A: Broad Sword
0x01A022|$06:$A012:A0 0F	; Item ID #$0B: Giant Hammer
0x01A024|$06:$A014:98 3A	; Item ID #$0C: Sword of Destruction
0x01A026|$06:$A016:40 1F	; Item ID #$0D: Dragon Killer
0x01A028|$06:$A018:80 3E	; Item ID #$0E: Light Sword
0x01A02A|$06:$A01A:02 00	; Item ID #$0F: Sword of Erdrick
0x01A02C|$06:$A01C:F4 01	; Item ID #$10: Thunder Sword

0x01A02E|$06:$A01E:1E 00	; Item ID #$11: Clothes
0x01A030|$06:$A020:E2 04	; Item ID #$12: Clothes Hiding
0x01A032|$06:$A022:46 00	; Item ID #$13: Water Flying Cloth
0x01A034|$06:$A024:E8 FD	; Item ID #$14: Mink Coat
0x01A036|$06:$A026:96 00	; Item ID #$15: Leather Armor
0x01A038|$06:$A028:E0 01	; Item ID #$16: Chain Mail
0x01A03A|$06:$A02A:00 19	; Item ID #$17: Gremlin’s Armor
0x01A03C|$06:$A02C:CC 10	; Item ID #$18: Magic Armor
0x01A03E|$06:$A02E:E8 03	; Item ID #$19: Full Plate Armor
0x01A040|$06:$A030:32 00	; Item ID #$1A: Armor of Gaia
0x01A042|$06:$A032:04 00	; Item ID #$1B: Armor of Erdrick

0x01A044|$06:$A034:5A 00	; Item ID #$1C: Leather Shield
0x01A046|$06:$A036:FC 53	; Item ID #$1D: Shield of Strength
0x01A048|$06:$A038:D0 07	; Item ID #$1E: Steel Shield
0x01A04A|$06:$A03A:60 22	; Item ID #$1F: Evil Shield
0x01A04C|$06:$A03C:14 00	; Item ID #$20: Shield of Erdrick

0x01A04E|$06:$A03E:20 4E	; Item ID #$21: Mysterious Hat
0x01A050|$06:$A040:4E 0C	; Item ID #$22: Iron Helmet
0x01A052|$06:$A042:46 00	; Item ID #$23: Helmet of Erdrick

0x01A054|$06:$A044:0A 00	; Item ID #$24: Token of Erdrick
0x01A056|$06:$A046:00 00	; Item ID #$25: Tresures
0x01A058|$06:$A048:2C 01	; Item ID #$26: Moon Fragment
0x01A05A|$06:$A04A:00 00	; Item ID #$27: Charm of Rubiss
0x01A05C|$06:$A04C:00 00	; Item ID #$28: Eye of Malroth
0x01A05E|$06:$A04E:06 00	; Item ID #$29: Leaf of The World Tree
0x01A060|$06:$A050:90 01	; Item ID #$2A: Echoing Flute
0x01A062|$06:$A052:00 00	; Item ID #$2B: Mirror of Ra
0x01A064|$06:$A054:28 00	; Item ID #$2C: Dew’s Yarn
0x01A066|$06:$A056:1E 00	; Item ID #$2D: Magic Loom
0x01A068|$06:$A058:46 00	; Item ID #$2E: Cloak of Wind
0x01A06A|$06:$A05A:DC 05	; Item ID #$2F: Gremlin’s Tail
0x01A06C|$06:$A05C:80 02	; Item ID #$30: Dragon’s Bane
0x01A06E|$06:$A05E:10 27	; Item ID #$31: Dragon’s Potion
0x01A070|$06:$A060:F4 01	; Item ID #$32: Golden Card
0x01A072|$06:$A062:46 00	; Item ID #$33: Lottery Ticket
0x01A074|$06:$A064:28 00	; Item ID #$34: Fairy Water
0x01A076|$06:$A066:50 00	; Item ID #$35: Wing of the Wyvern
0x01A078|$06:$A068:02 00	; Item ID #$36: [blank]
0x01A07A|$06:$A06A:02 00	; Item ID #$37: Golden Key
0x01A07C|$06:$A06C:02 00	; Item ID #$38: Silver Key
0x01A07E|$06:$A06E:D0 07	; Item ID #$39: Jailor’s Key
0x01A080|$06:$A070:00 00	; Item ID #$3A: Watergate Key
0x01A082|$06:$A072:08 00	; Item ID #$3B: Antidote Herb
0x01A084|$06:$A074:0F 00	; Item ID #$3C: Medical Herb
0x01A086|$06:$A076:28 0A	; Item ID #$3D: Wizard’s Ring
0x01A088|$06:$A078:02 00	; Item ID #$3E: Perilous
0x01A08A|$06:$A07A:02 00	; Item ID #$3F: [blank]

; data -> code
; control flow target (from $A141, $A14C)
0x01A08C|$06:$A07C:A5 47   	LDA $47    	; Stepguard flag
0x01A08E|$06:$A07E:10 08   	BPL $A088  
0x01A090|$06:$A080:C0 04   	CPY #$04   
0x01A092|$06:$A082:D0 11   	BNE $A095  
0x01A094|$06:$A084:A9 07   	LDA #$07   
0x01A096|$06:$A086:85 47   	STA $47    	; Stepguard flag
; control flow target (from $A07E)
0x01A098|$06:$A088:98      	TYA        
0x01A099|$06:$A089:25 47   	AND $47    	; Stepguard flag
0x01A09B|$06:$A08B:F0 0D   	BEQ $A09A  
0x01A09D|$06:$A08D:0A      	ASL        
0x01A09E|$06:$A08E:38      	SEC        
0x01A09F|$06:$A08F:E9 01   	SBC #$01   
0x01A0A1|$06:$A091:05 47   	ORA $47    	; Stepguard flag
0x01A0A3|$06:$A093:85 47   	STA $47    	; Stepguard flag
; control flow target (from $A082)
0x01A0A5|$06:$A095:68      	PLA        
0x01A0A6|$06:$A096:68      	PLA        
0x01A0A7|$06:$A097:4C A1 A1	JMP $A1A1  

; control flow target (from $A08B)
0x01A0AA|$06:$A09A:60      	RTS        


; code -> data
; indexed data load target (from $A11D)
0x01A0AB|$06:$A09B:04
0x01A0AC|$06:$A09C:02
0x01A0AD|$06:$A09D:01

; data -> code
; external control flow target (from $0F:$C89E)
0x01A0AE|$06:$A09E:AD 5A 01	LDA $015A  
0x01A0B1|$06:$A0A1:8D 5B 01	STA $015B  
0x01A0B4|$06:$A0A4:AD 59 01	LDA $0159  
0x01A0B7|$06:$A0A7:8D 5A 01	STA $015A  
0x01A0BA|$06:$A0AA:A5 3B   	LDA $3B    	; high nybble = terrain ID
0x01A0BC|$06:$A0AC:8D 59 01	STA $0159  
0x01A0BF|$06:$A0AF:A9 00   	LDA #$00   
0x01A0C1|$06:$A0B1:85 0E   	STA $0E    
0x01A0C3|$06:$A0B3:A9 06   	LDA #$06   
0x01A0C5|$06:$A0B5:85 94   	STA $94    	; return bank for various function calls, doubles as index of selected option for multiple-choice menus
0x01A0C7|$06:$A0B7:A5 46   	LDA $46    	; Repel (#$FE) / Fairy Water (#$FF) flag
0x01A0C9|$06:$A0B9:F0 23   	BEQ $A0DE  
0x01A0CB|$06:$A0BB:C9 01   	CMP #$01   
0x01A0CD|$06:$A0BD:D0 04   	BNE $A0C3  
0x01A0CF|$06:$A0BF:A9 2B   	LDA #$2B   	; String ID #$012B: The Fairy Water evaporated and lost its power.[end-FC]
0x01A0D1|$06:$A0C1:D0 06   	BNE $A0C9  
; control flow target (from $A0BD)
0x01A0D3|$06:$A0C3:C9 02   	CMP #$02   
0x01A0D5|$06:$A0C5:D0 13   	BNE $A0DA  
0x01A0D7|$06:$A0C7:A9 BE   	LDA #$BE   	; String ID #$01BE: Repel has lost its effect.[end-FC]
; control flow target (from $A0C1)
0x01A0D9|$06:$A0C9:48      	PHA        
; call to code in a different bank ($0F:$EB76)
0x01A0DA|$06:$A0CA:20 76 EB	JSR $EB76  	; open menu specified by next byte

; code -> data
; indirect data load target
0x01A0DD|$06:$A0CD:04	; Menu ID #$04: Dialogue window

; data -> code
0x01A0DE|$06:$A0CE:68      	PLA        
; call to code in a different bank ($0F:$FA4E)
0x01A0DF|$06:$A0CF:20 4E FA	JSR $FA4E  	; display string ID specified by A + #$0100
0x01A0E2|$06:$A0D2:A9 01   	LDA #$01   
0x01A0E4|$06:$A0D4:85 0E   	STA $0E    
0x01A0E6|$06:$A0D6:A9 02   	LDA #$02   
0x01A0E8|$06:$A0D8:85 46   	STA $46    	; Repel (#$FE) / Fairy Water (#$FF) flag
; control flow target (from $A0C5)
0x01A0EA|$06:$A0DA:C6 46   	DEC $46    	; Repel (#$FE) / Fairy Water (#$FF) flag
0x01A0EC|$06:$A0DC:C6 46   	DEC $46    	; Repel (#$FE) / Fairy Water (#$FF) flag
; control flow target (from $A0B9)
0x01A0EE|$06:$A0DE:EE FB 05	INC $05FB  	; movement counter
0x01A0F1|$06:$A0E1:AD FB 05	LDA $05FB  	; movement counter
0x01A0F4|$06:$A0E4:29 03   	AND #$03   
0x01A0F6|$06:$A0E6:D0 26   	BNE $A10E  
0x01A0F8|$06:$A0E8:A5 1F   	LDA $1F    	; some kind of map type (#$00: World Map, #$01: other non-dungeon maps, #$02: maps #$2B - #$43 inclusive, #$03: maps >= #$44, #$FF => game menu)
0x01A0FA|$06:$A0EA:C9 01   	CMP #$01   
0x01A0FC|$06:$A0EC:F0 20   	BEQ $A10E  
0x01A0FE|$06:$A0EE:A0 00   	LDY #$00   
; control flow target (from $A10C)
0x01A100|$06:$A0F0:B9 2D 06	LDA $062D,Y	; Midenhall status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence)
0x01A103|$06:$A0F3:29 A0   	AND #$A0   
0x01A105|$06:$A0F5:C9 A0   	CMP #$A0   
0x01A107|$06:$A0F7:D0 0C   	BNE $A105  
0x01A109|$06:$A0F9:98      	TYA        
0x01A10A|$06:$A0FA:48      	PHA        
0x01A10B|$06:$A0FB:20 62 A2	JSR $A262  
0x01A10E|$06:$A0FE:68      	PLA        
0x01A10F|$06:$A0FF:A8      	TAY        
0x01A110|$06:$A100:A9 01   	LDA #$01   
0x01A112|$06:$A102:20 C7 A1	JSR $A1C7  
; control flow target (from $A0F7)
0x01A115|$06:$A105:98      	TYA        
0x01A116|$06:$A106:18      	CLC        
0x01A117|$06:$A107:69 12   	ADC #$12   
0x01A119|$06:$A109:A8      	TAY        
0x01A11A|$06:$A10A:C0 36   	CPY #$36   
0x01A11C|$06:$A10C:90 E2   	BCC $A0F0  
; control flow target (from $A0E6, $A0EC)
0x01A11E|$06:$A10E:A9 24   	LDA #$24   
0x01A120|$06:$A110:85 49   	STA $49    	; object hero/target/item/string ID $49
0x01A122|$06:$A112:A9 00   	LDA #$00   
0x01A124|$06:$A114:85 96   	STA $96    	; temp storage for item/spell/type/etc. IDs
; control flow target (from $A1AA)
0x01A126|$06:$A116:A5 49   	LDA $49    	; object hero/target/item/string ID $49
0x01A128|$06:$A118:4A      	LSR        
0x01A129|$06:$A119:4A      	LSR        
0x01A12A|$06:$A11A:4A      	LSR        
0x01A12B|$06:$A11B:4A      	LSR        
0x01A12C|$06:$A11C:AA      	TAX        
0x01A12D|$06:$A11D:BC 9B A0	LDY $A09B,X
0x01A130|$06:$A120:BD 59 01	LDA $0159,X
0x01A133|$06:$A123:C9 70   	CMP #$70   
0x01A135|$06:$A125:D0 04   	BNE $A12B  
0x01A137|$06:$A127:A9 02   	LDA #$02   
0x01A139|$06:$A129:D0 36   	BNE $A161  
; control flow target (from $A125)
0x01A13B|$06:$A12B:C9 A0   	CMP #$A0   
0x01A13D|$06:$A12D:D0 0E   	BNE $A13D  
0x01A13F|$06:$A12F:A5 31   	LDA $31    	; current map ID
0x01A141|$06:$A131:C9 2E   	CMP #$2E   	; Map ID #$2E: Sea Cave B1
0x01A143|$06:$A133:90 1E   	BCC $A153  
0x01A145|$06:$A135:C9 34   	CMP #$34   	; Map ID #$34: Charlock Castle B1/B2
0x01A147|$06:$A137:B0 1A   	BCS $A153  
0x01A149|$06:$A139:A9 01   	LDA #$01   
0x01A14B|$06:$A13B:D0 24   	BNE $A161  
; control flow target (from $A12D)
0x01A14D|$06:$A13D:C9 80   	CMP #$80   
0x01A14F|$06:$A13F:D0 07   	BNE $A148  
0x01A151|$06:$A141:20 7C A0	JSR $A07C  
0x01A154|$06:$A144:A9 0F   	LDA #$0F   
0x01A156|$06:$A146:D0 19   	BNE $A161  
; control flow target (from $A13F)
0x01A158|$06:$A148:C9 90   	CMP #$90   
0x01A15A|$06:$A14A:D0 07   	BNE $A153  
0x01A15C|$06:$A14C:20 7C A0	JSR $A07C  
0x01A15F|$06:$A14F:A9 1E   	LDA #$1E   
0x01A161|$06:$A151:D0 0E   	BNE $A161  
; control flow target (from $A133, $A137, $A14A)
0x01A163|$06:$A153:A5 47   	LDA $47    	; Stepguard flag
0x01A165|$06:$A155:30 4A   	BMI $A1A1  
0x01A167|$06:$A157:98      	TYA        
0x01A168|$06:$A158:49 FF   	EOR #$FF   
0x01A16A|$06:$A15A:25 47   	AND $47    	; Stepguard flag
0x01A16C|$06:$A15C:85 47   	STA $47    	; Stepguard flag
0x01A16E|$06:$A15E:4C A1 A1	JMP $A1A1  

; control flow target (from $A129, $A13B, $A146, $A151)
0x01A171|$06:$A161:85 CC   	STA $CC    
0x01A173|$06:$A163:A4 49   	LDY $49    	; object hero/target/item/string ID $49
0x01A175|$06:$A165:B9 2D 06	LDA $062D,Y	; Midenhall status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence)
0x01A178|$06:$A168:10 37   	BPL $A1A1  
0x01A17A|$06:$A16A:A9 5B   	LDA #$5B   
0x01A17C|$06:$A16C:20 B5 A1	JSR $A1B5  
0x01A17F|$06:$A16F:B0 30   	BCS $A1A1  
0x01A181|$06:$A171:A5 CC   	LDA $CC    
0x01A183|$06:$A173:C9 0A   	CMP #$0A   
0x01A185|$06:$A175:B0 07   	BCS $A17E  
0x01A187|$06:$A177:A9 53   	LDA #$53   
0x01A189|$06:$A179:20 B5 A1	JSR $A1B5  
0x01A18C|$06:$A17C:B0 23   	BCS $A1A1  
; control flow target (from $A175)
0x01A18E|$06:$A17E:A5 96   	LDA $96    	; temp storage for item/spell/type/etc. IDs
0x01A190|$06:$A180:D0 18   	BNE $A19A  
0x01A192|$06:$A182:98      	TYA        
0x01A193|$06:$A183:48      	PHA        
0x01A194|$06:$A184:A5 CC   	LDA $CC    
0x01A196|$06:$A186:C9 0A   	CMP #$0A   
0x01A198|$06:$A188:B0 0B   	BCS $A195  
0x01A19A|$06:$A18A:A9 91   	LDA #$91   	; Music ID #$91: swamp SFX
; call to code in a different bank ($0F:$C561)
0x01A19C|$06:$A18C:20 61 C5	JSR $C561  	; play PCM specified by A (>= #$80 = sound effect [SFX], < #$80 = background music [BGM])
0x01A19F|$06:$A18F:20 62 A2	JSR $A262  
0x01A1A2|$06:$A192:4C 98 A1	JMP $A198  

; control flow target (from $A188)
0x01A1A5|$06:$A195:20 96 A2	JSR $A296  
; control flow target (from $A192)
0x01A1A8|$06:$A198:68      	PLA        
0x01A1A9|$06:$A199:A8      	TAY        
; control flow target (from $A180)
0x01A1AA|$06:$A19A:E6 96   	INC $96    	; temp storage for item/spell/type/etc. IDs
0x01A1AC|$06:$A19C:A5 CC   	LDA $CC    
0x01A1AE|$06:$A19E:20 C7 A1	JSR $A1C7  
; control flow target (from $A097, $A155, $A15E, $A168, $A16F, $A17C)
0x01A1B1|$06:$A1A1:A5 49   	LDA $49    	; object hero/target/item/string ID $49
0x01A1B3|$06:$A1A3:38      	SEC        
0x01A1B4|$06:$A1A4:E9 12   	SBC #$12   
0x01A1B6|$06:$A1A6:85 49   	STA $49    	; object hero/target/item/string ID $49
0x01A1B8|$06:$A1A8:30 03   	BMI $A1AD  
0x01A1BA|$06:$A1AA:4C 16 A1	JMP $A116  

; control flow target (from $A1A8)
0x01A1BD|$06:$A1AD:A5 0E   	LDA $0E    
0x01A1BF|$06:$A1AF:F0 03   	BEQ $A1B4  
; call to code in a different bank ($0F:$D0F5)
0x01A1C1|$06:$A1B1:20 F5 D0	JSR $D0F5  	; wait for a while and then wipe menu regions #$03, #$00, and #$01
; control flow target (from $A1AF)
0x01A1C4|$06:$A1B4:60      	RTS        

; control flow target (from $A16C, $A179)
0x01A1C5|$06:$A1B5:85 0C   	STA $0C    
0x01A1C7|$06:$A1B7:98      	TYA        
0x01A1C8|$06:$A1B8:48      	PHA        
0x01A1C9|$06:$A1B9:4A      	LSR        
0x01A1CA|$06:$A1BA:4A      	LSR        
0x01A1CB|$06:$A1BB:4A      	LSR        
0x01A1CC|$06:$A1BC:4A      	LSR        
0x01A1CD|$06:$A1BD:85 9C   	STA $9C    
0x01A1CF|$06:$A1BF:A5 0C   	LDA $0C    
; call to code in a different bank ($0F:$C4B0)
0x01A1D1|$06:$A1C1:20 B0 C4	JSR $C4B0  	; given a hero ID in $9C and an item ID in A, SEC if hero has that item, CLC otherwise
0x01A1D4|$06:$A1C4:68      	PLA        
0x01A1D5|$06:$A1C5:A8      	TAY        
0x01A1D6|$06:$A1C6:60      	RTS        

; control flow target (from $A102, $A19E)
0x01A1D7|$06:$A1C7:85 0C   	STA $0C    
0x01A1D9|$06:$A1C9:B9 3B 06	LDA $063B,Y	; Midenhall Current HP, low byte
0x01A1DC|$06:$A1CC:38      	SEC        
0x01A1DD|$06:$A1CD:E5 0C   	SBC $0C    
0x01A1DF|$06:$A1CF:99 3B 06	STA $063B,Y	; Midenhall Current HP, low byte
0x01A1E2|$06:$A1D2:B9 3C 06	LDA $063C,Y	; Midenhall Current HP, high byte
0x01A1E5|$06:$A1D5:E9 00   	SBC #$00   
0x01A1E7|$06:$A1D7:99 3C 06	STA $063C,Y	; Midenhall Current HP, high byte
0x01A1EA|$06:$A1DA:B0 08   	BCS $A1E4  
0x01A1EC|$06:$A1DC:A9 00   	LDA #$00   
0x01A1EE|$06:$A1DE:99 3B 06	STA $063B,Y	; Midenhall Current HP, low byte
0x01A1F1|$06:$A1E1:99 3C 06	STA $063C,Y	; Midenhall Current HP, high byte
; control flow target (from $A1DA)
0x01A1F4|$06:$A1E4:19 3B 06	ORA $063B,Y	; Midenhall Current HP, low byte
0x01A1F7|$06:$A1E7:F0 0C   	BEQ $A1F5  
0x01A1F9|$06:$A1E9:98      	TYA        
0x01A1FA|$06:$A1EA:48      	PHA        
0x01A1FB|$06:$A1EB:8A      	TXA        
0x01A1FC|$06:$A1EC:48      	PHA        
; call to code in a different bank ($0F:$C22C)
0x01A1FD|$06:$A1ED:20 2C C2	JSR $C22C  
0x01A200|$06:$A1F0:68      	PLA        
0x01A201|$06:$A1F1:AA      	TAX        
0x01A202|$06:$A1F2:68      	PLA        
0x01A203|$06:$A1F3:A8      	TAY        
0x01A204|$06:$A1F4:60      	RTS        

; control flow target (from $A1E7)
0x01A205|$06:$A1F5:A9 04   	LDA #$04   
0x01A207|$06:$A1F7:99 2D 06	STA $062D,Y	; Midenhall status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence)
0x01A20A|$06:$A1FA:A9 FF   	LDA #$FF   
0x01A20C|$06:$A1FC:85 35   	STA $35    	; flag indicating whether any menu is currently open
0x01A20E|$06:$A1FE:A5 0E   	LDA $0E    
0x01A210|$06:$A200:D0 0C   	BNE $A20E  
0x01A212|$06:$A202:98      	TYA        
0x01A213|$06:$A203:48      	PHA        
; call to code in a different bank ($0F:$EB76)
0x01A214|$06:$A204:20 76 EB	JSR $EB76  	; open menu specified by next byte

; code -> data
; indirect data load target
0x01A217|$06:$A207:04	; Menu ID #$04: Dialogue window

; data -> code
0x01A218|$06:$A208:68      	PLA        
0x01A219|$06:$A209:A8      	TAY        
0x01A21A|$06:$A20A:A9 00   	LDA #$00   
0x01A21C|$06:$A20C:85 0E   	STA $0E    
; control flow target (from $A200)
0x01A21E|$06:$A20E:E6 0E   	INC $0E    
0x01A220|$06:$A210:A5 0E   	LDA $0E    
0x01A222|$06:$A212:48      	PHA        
0x01A223|$06:$A213:98      	TYA        
0x01A224|$06:$A214:48      	PHA        
0x01A225|$06:$A215:4A      	LSR        
0x01A226|$06:$A216:4A      	LSR        
0x01A227|$06:$A217:4A      	LSR        
0x01A228|$06:$A218:4A      	LSR        
0x01A229|$06:$A219:85 97   	STA $97    	; subject hero ID $97
; call to code in a different bank ($0F:$FC50)
0x01A22B|$06:$A21B:20 50 FC	JSR $FC50  	; print name of hero given by low 2 bits of A to $6119, terminated by #$FA
0x01A22E|$06:$A21E:A5 97   	LDA $97    	; subject hero ID $97
0x01A230|$06:$A220:18      	CLC        
0x01A231|$06:$A221:69 03   	ADC #$03   
0x01A233|$06:$A223:85 97   	STA $97    	; subject hero ID $97
; call to code in a different bank ($0F:$D302)
0x01A235|$06:$A225:20 02 D3	JSR $D302  
; call to code in a different bank ($0F:$FA2A)
0x01A238|$06:$A228:20 2A FA	JSR $FA2A  	; display string ID specified by next byte

; code -> data
; indirect data load target
0x01A23B|$06:$A22B:1B	; String ID #$001B: Alas, brave [name] hast died.[end-FC]

; data -> code
0x01A23C|$06:$A22C:68      	PLA        
0x01A23D|$06:$A22D:A8      	TAY        
0x01A23E|$06:$A22E:68      	PLA        
0x01A23F|$06:$A22F:85 0E   	STA $0E    
0x01A241|$06:$A231:A2 00   	LDX #$00   
; control flow target (from $A23F)
0x01A243|$06:$A233:BD 2D 06	LDA $062D,X	; Midenhall status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence)
0x01A246|$06:$A236:30 25   	BMI $A25D  
0x01A248|$06:$A238:8A      	TXA        
0x01A249|$06:$A239:18      	CLC        
0x01A24A|$06:$A23A:69 12   	ADC #$12   
0x01A24C|$06:$A23C:AA      	TAX        
0x01A24D|$06:$A23D:C9 36   	CMP #$36   
0x01A24F|$06:$A23F:90 F2   	BCC $A233  
; call to code in a different bank ($0F:$F6CE)
0x01A251|$06:$A241:20 CE F6	JSR $F6CE  	; return number of party members - 1 in A/X
0x01A254|$06:$A244:F0 09   	BEQ $A24F  
0x01A256|$06:$A246:A9 80   	LDA #$80   
; call to code in a different bank ($0F:$FC50)
0x01A258|$06:$A248:20 50 FC	JSR $FC50  	; print name of hero given by low 2 bits of A to $6119, terminated by #$FA
; call to code in a different bank ($0F:$FA2E)
0x01A25B|$06:$A24B:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x01A25E|$06:$A24E:51	; String ID #$0151: [name] is utterly destroyed.[end-FC]

; data -> code
; control flow target (from $A244)
0x01A25F|$06:$A24F:A9 12   	LDA #$12   	; Music ID #$12: party defeat BGM
0x01A261|$06:$A251:8D F7 05	STA $05F7  	; probably BGM for current area
; call to code in a different bank ($0F:$C561)
0x01A264|$06:$A254:20 61 C5	JSR $C561  	; play PCM specified by A (>= #$80 = sound effect [SFX], < #$80 = background music [BGM])
0x01A267|$06:$A257:20 9D 80	JSR $809D  	; wait until all joypad buttons are released and then some button pressed
; call to code in a different bank ($0F:$D271)
0x01A26A|$06:$A25A:4C 71 D2	JMP $D271  

; control flow target (from $A236)
0x01A26D|$06:$A25D:A9 00   	LDA #$00   
0x01A26F|$06:$A25F:85 35   	STA $35    	; flag indicating whether any menu is currently open
0x01A271|$06:$A261:60      	RTS        

; control flow target (from $A0FB, $A18F, $A29F)
; call to code in a different bank ($0F:$C1DC)
0x01A272|$06:$A262:20 DC C1	JSR $C1DC  	; set $6007 = #$00, set $00 = #$01, wait for interrupt, set $00 = #$FF
0x01A275|$06:$A265:AD 87 A2	LDA $A287  
0x01A278|$06:$A268:85 0A   	STA $0A    
0x01A27A|$06:$A26A:AD 88 A2	LDA $A288  
0x01A27D|$06:$A26D:20 7E A2	JSR $A27E  
; call to code in a different bank ($0F:$C1DC)
0x01A280|$06:$A270:20 DC C1	JSR $C1DC  	; set $6007 = #$00, set $00 = #$01, wait for interrupt, set $00 = #$FF
; call to code in a different bank ($0F:$C1DC)
0x01A283|$06:$A273:20 DC C1	JSR $C1DC  	; set $6007 = #$00, set $00 = #$01, wait for interrupt, set $00 = #$FF
0x01A286|$06:$A276:AD E9 C2	LDA $C2E9  
0x01A289|$06:$A279:85 0A   	STA $0A    
0x01A28B|$06:$A27B:AD EA C2	LDA $C2EA  
; control flow target (from $A26D)
0x01A28E|$06:$A27E:85 0B   	STA $0B    
0x01A290|$06:$A280:A9 00   	LDA #$00   
0x01A292|$06:$A282:85 0C   	STA $0C    
; call to code in a different bank ($0F:$C228)
0x01A294|$06:$A284:4C 28 C2	JMP $C228  


; code -> data
; data load target (from $A265)
0x01A297|$06:$A287:89
; data load target (from $A26A)
0x01A298|$06:$A288:   A2	; $06:$A289
; indirect data load target (via $A287)
0x01A299|$06:$A289:0F
; indirect data load target
0x01A29A|$06:$A28A:16
; indirect data load target
0x01A29B|$06:$A28B:16
; indirect data load target
0x01A29C|$06:$A28C:16
; indirect data load target
0x01A29D|$06:$A28D:16
; indirect data load target
0x01A29E|$06:$A28E:16
; indirect data load target
0x01A29F|$06:$A28F:16
; indirect data load target
0x01A2A0|$06:$A290:16
; indirect data load target
0x01A2A1|$06:$A291:16
; indirect data load target
0x01A2A2|$06:$A292:16
; indirect data load target
0x01A2A3|$06:$A293:16
; indirect data load target
0x01A2A4|$06:$A294:16
; indirect data load target
0x01A2A5|$06:$A295:16

; data -> code
; control flow target (from $A195)
0x01A2A6|$06:$A296:A9 81   	LDA #$81   	; Music ID #$81: hit 1 SFX
; call to code in a different bank ($0F:$C561)
0x01A2A8|$06:$A298:20 61 C5	JSR $C561  	; play PCM specified by A (>= #$80 = sound effect [SFX], < #$80 = background music [BGM])
0x01A2AB|$06:$A29B:A9 04   	LDA #$04   
0x01A2AD|$06:$A29D:85 13   	STA $13    
; control flow target (from $A2A4)
0x01A2AF|$06:$A29F:20 62 A2	JSR $A262  
0x01A2B2|$06:$A2A2:C6 13   	DEC $13    
0x01A2B4|$06:$A2A4:D0 F9   	BNE $A29F  
0x01A2B6|$06:$A2A6:60      	RTS        

; external control flow target (from $0F:$C91B)
0x01A2B7|$06:$A2A7:AD 12 01	LDA $0112  	; Crests found bit field (#$10 = Life, #$80 = Water, #$04 = Moon, #$02 = Stars, #$01 = Sun)
0x01A2BA|$06:$A2AA:29 1F   	AND #$1F   
0x01A2BC|$06:$A2AC:C9 1F   	CMP #$1F   
0x01A2BE|$06:$A2AE:F0 01   	BEQ $A2B1  
; control flow target (from $A2B8)
0x01A2C0|$06:$A2B0:60      	RTS        

; control flow target (from $A2AE)
0x01A2C1|$06:$A2B1:A9 27   	LDA #$27   
0x01A2C3|$06:$A2B3:20 69 A3	JSR $A369  	; check for item A in party inventory, returning inventory index of item in A/X if found, #$FF if not
0x01A2C6|$06:$A2B6:C9 FF   	CMP #$FF   
0x01A2C8|$06:$A2B8:D0 F6   	BNE $A2B0  
0x01A2CA|$06:$A2BA:A9 05   	LDA #$05   	; Music ID #$05: Rubiss BGM
; call to code in a different bank ($0F:$C561)
0x01A2CC|$06:$A2BC:20 61 C5	JSR $C561  	; play PCM specified by A (>= #$80 = sound effect [SFX], < #$80 = background music [BGM])
0x01A2CF|$06:$A2BF:A9 04   	LDA #$04   
0x01A2D1|$06:$A2C1:85 49   	STA $49    	; object hero/target/item/string ID $49
0x01A2D3|$06:$A2C3:20 FB A2	JSR $A2FB  
; call to code in a different bank ($0F:$F6F6)
0x01A2D6|$06:$A2C6:20 F6 F6	JSR $F6F6  	; open main dialogue window and display string ID specified by byte following JSR + #$0200

; code -> data
; indirect data load target
0x01A2D9|$06:$A2C9:FD	; String ID #$02FD: I hear a mortal voice calling me.[wait][line]‘Ah, three descendants of Erdrick[.’][wait][line]‘Yes, I shall help thee[.’][wait][line]‘I am Rubiss, an Enchanter, and long ago I promised Erdrick to help when the time came[.’][wait][line]‘Now is the time[.’][wait][line]‘Receive now my charm and my spell of protection[.’][end-FC]

; data -> code
0x01A2DA|$06:$A2CA:A9 27   	LDA #$27   
0x01A2DC|$06:$A2CC:85 96   	STA $96    	; temp storage for item/spell/type/etc. IDs
0x01A2DE|$06:$A2CE:A9 00   	LDA #$00   
0x01A2E0|$06:$A2D0:85 97   	STA $97    	; subject hero ID $97
0x01A2E2|$06:$A2D2:20 7E 8D	JSR $8D7E  	; given hero ID in $97 and item ID in $96, try to add item to first empty slot in hero's inventory; SEC if added, CLC if no empty slots
0x01A2E5|$06:$A2D5:B0 12   	BCS $A2E9  
0x01A2E7|$06:$A2D7:E6 97   	INC $97    	; subject hero ID $97
0x01A2E9|$06:$A2D9:20 7E 8D	JSR $8D7E  	; given hero ID in $97 and item ID in $96, try to add item to first empty slot in hero's inventory; SEC if added, CLC if no empty slots
0x01A2EC|$06:$A2DC:B0 0B   	BCS $A2E9  
0x01A2EE|$06:$A2DE:E6 97   	INC $97    	; subject hero ID $97
0x01A2F0|$06:$A2E0:20 7E 8D	JSR $8D7E  	; given hero ID in $97 and item ID in $96, try to add item to first empty slot in hero's inventory; SEC if added, CLC if no empty slots
0x01A2F3|$06:$A2E3:B0 04   	BCS $A2E9  
; call to code in a different bank ($0F:$FA32)
0x01A2F5|$06:$A2E5:20 32 FA	JSR $FA32  	; display string ID specified by next byte + #$0200

; code -> data
0x01A2F8|$06:$A2E8:D8	; String ID #$02D8: [wait]‘But thou hast many things.[line]See me again later[.’][end-FC]

; data -> code
; control flow target (from $A2D5, $A2DC, $A2E3)
0x01A2F9|$06:$A2E9:A2 3C   	LDX #$3C   
; call to code in a different bank ($0F:$C1EE)
0x01A2FB|$06:$A2EB:20 EE C1	JSR $C1EE  	; set $6007 = #$00, set $00 = #$01, wait for X interrupts, set $00 = #$FF
0x01A2FE|$06:$A2EE:A9 FF   	LDA #$FF   
0x01A300|$06:$A2F0:85 49   	STA $49    	; object hero/target/item/string ID $49
0x01A302|$06:$A2F2:20 FB A2	JSR $A2FB  
; call to code in a different bank ($0F:$C59D)
0x01A305|$06:$A2F5:20 9D C5	JSR $C59D  
; call to code in a different bank ($0F:$D0F5)
0x01A308|$06:$A2F8:4C F5 D0	JMP $D0F5  	; wait for a while and then wipe menu regions #$03, #$00, and #$01

; control flow target (from $A2C3, $A2F2)
0x01A30B|$06:$A2FB:A0 1F   	LDY #$1F   
0x01A30D|$06:$A2FD:20 0C A3	JSR $A30C  
0x01A310|$06:$A300:A0 27   	LDY #$27   
0x01A312|$06:$A302:20 0C A3	JSR $A30C  
0x01A315|$06:$A305:A0 2F   	LDY #$2F   
0x01A317|$06:$A307:20 0C A3	JSR $A30C  
0x01A31A|$06:$A30A:A0 37   	LDY #$37   
; control flow target (from $A2FD, $A302, $A307)
0x01A31C|$06:$A30C:A5 49   	LDA $49    	; object hero/target/item/string ID $49
0x01A31E|$06:$A30E:99 3A 05	STA $053A,Y
; call to code in a different bank ($0F:$CF64)
0x01A321|$06:$A311:20 64 CF	JSR $CF64  
0x01A324|$06:$A314:A2 19   	LDX #$19   
; call to code in a different bank ($0F:$C1EE)
0x01A326|$06:$A316:4C EE C1	JMP $C1EE  	; set $6007 = #$00, set $00 = #$01, wait for X interrupts, set $00 = #$FF

; if $05FC is #$00, copy battle stats at $015D,Y to field stats at $0600,X, otherwise copy field stats at $0600,X to battle stats at $015D,Y
; external control flow target (from $0F:$E438)
0x01A329|$06:$A319:A2 00   	LDX #$00   
0x01A32B|$06:$A31B:A0 00   	LDY #$00   
; control flow target (from $A337)
0x01A32D|$06:$A31D:86 0C   	STX $0C    
0x01A32F|$06:$A31F:BD 4E A3	LDA $A34E,X
0x01A332|$06:$A322:85 0D   	STA $0D    
0x01A334|$06:$A324:BD 4D A3	LDA $A34D,X	; stat ranges
0x01A337|$06:$A327:AA      	TAX        
; control flow target (from $A32F)
0x01A338|$06:$A328:20 3A A3	JSR $A33A  	; if $05FC is #$00, copy $015D,Y to $0600,X, otherwise copy $0600,X to $015D,Y
0x01A33B|$06:$A32B:E8      	INX        
0x01A33C|$06:$A32C:C8      	INY        
0x01A33D|$06:$A32D:E4 0D   	CPX $0D    
0x01A33F|$06:$A32F:D0 F7   	BNE $A328  
0x01A341|$06:$A331:A6 0C   	LDX $0C    
0x01A343|$06:$A333:E8      	INX        
0x01A344|$06:$A334:E8      	INX        
0x01A345|$06:$A335:E0 10   	CPX #$10   
0x01A347|$06:$A337:D0 E4   	BNE $A31D  
0x01A349|$06:$A339:60      	RTS        

; if $05FC is #$00, copy $015D,Y to $0600,X, otherwise copy $0600,X to $015D,Y
; control flow target (from $A328)
0x01A34A|$06:$A33A:AD FC 05	LDA $05FC  
0x01A34D|$06:$A33D:F0 07   	BEQ $A346  
0x01A34F|$06:$A33F:BD 00 06	LDA $0600,X	; Midenhall inventory item 1 (| #$40 if equipped)
0x01A352|$06:$A342:99 5D 01	STA $015D,Y
0x01A355|$06:$A345:60      	RTS        

; control flow target (from $A33D)
0x01A356|$06:$A346:B9 5D 01	LDA $015D,Y
0x01A359|$06:$A349:9D 00 06	STA $0600,X	; Midenhall inventory item 1 (| #$40 if equipped)
0x01A35C|$06:$A34C:60      	RTS        


; code -> data
; stat ranges
; indexed data load target (from $A324)
0x01A35D|$06:$A34D:00
; indexed data load target (from $A31F)
0x01A35E|$06:$A34E:   18	; $0600 inclusive - $0618 exclusive
0x01A35F|$06:$A34F:24 26	; $0624 inclusive - $0626 exclusive
0x01A361|$06:$A351:2D 2E	; $062D inclusive - $062E exclusive
0x01A363|$06:$A353:3B 3E	; $063B inclusive - $063E exclusive
0x01A365|$06:$A355:3F 40	; $063F inclusive - $0640 exclusive
0x01A367|$06:$A357:4D 50	; $064D inclusive - $0650 exclusive
0x01A369|$06:$A359:51 52	; $0651 inclusive - $0652 exclusive
0x01A36B|$06:$A35B:5F 62	; $065F inclusive - $0662 exclusive

; data -> code
; save game handler
; control flow target (from $8F02, $900A, $918D, $9209, $93F6, $943F, $981B)
; call to code in a different bank ($0F:$D159)
0x01A36D|$06:$A35D:4C 59 D1	JMP $D159  

; check for item A (possibly equipped) in party inventory, returning inventory index of item in A/X if found, #$FF if not
; control flow target (from $9B58, $9DD8, $9DE5)
0x01A370|$06:$A360:20 69 A3	JSR $A369  	; check for item A in party inventory, returning inventory index of item in A/X if found, #$FF if not
0x01A373|$06:$A363:10 3A   	BPL $A39F  	; if found, RTS
0x01A375|$06:$A365:A5 0C   	LDA $0C    	; otherwise re-load the item ID
0x01A377|$06:$A367:09 40   	ORA #$40   	; and check for an equipped version
; check for item A in party inventory, returning inventory index of item in A/X if found, #$FF if not
; control flow target (from $834E, $845B, $86D7, $8D5D, $90CE, $90D5, $92BC, $92C3, $92D5, $9306, $93C0, $93CB, $9B51, $9BA8, $9D8C, $A2B3, $A360)
; external control flow target (from $0F:$D589)
0x01A379|$06:$A369:84 10   	STY $10    	; save Y in $10
0x01A37B|$06:$A36B:85 0C   	STA $0C    	; save item ID in $0C
0x01A37D|$06:$A36D:A2 00   	LDX #$00   	; initialize both inventory index and hero ID to #$00
0x01A37F|$06:$A36F:86 0D   	STX $0D    	; inventory index
; control flow target (from $A398)
0x01A381|$06:$A371:A4 0D   	LDY $0D    	; hero ID
0x01A383|$06:$A373:B9 A0 A3	LDA $A3A0,Y	; pre-computed offsets for the start of each hero's data (what's wrong with the same data at $06:$9D55?)
0x01A386|$06:$A376:A8      	TAY        
0x01A387|$06:$A377:B9 2D 06	LDA $062D,Y	; Midenhall status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence)
0x01A38A|$06:$A37A:29 04   	AND #$04   	; pick out the In Party bit
0x01A38C|$06:$A37C:D0 07   	BNE $A385  	; if not in party, skip to the next hero (but heroes are gained sequentially and never leave, so BNE $A39A would be faster)
0x01A38E|$06:$A37E:8A      	TXA        	; inventory index
0x01A38F|$06:$A37F:18      	CLC        
0x01A390|$06:$A380:69 08   	ADC #$08   	; move to start of next hero's inventory
0x01A392|$06:$A382:AA      	TAX        
0x01A393|$06:$A383:D0 0D   	BNE $A392  	; branch always taken; skip cheking current hero's inventory (since they're not in the party)
; control flow target (from $A37C, $A390)
0x01A395|$06:$A385:BD 00 06	LDA $0600,X	; Midenhall inventory item 1 (| #$40 if equipped)
0x01A398|$06:$A388:C5 0C   	CMP $0C    	; item ID
0x01A39A|$06:$A38A:F0 10   	BEQ $A39C  	; if we have one, then done
0x01A39C|$06:$A38C:E8      	INX        	; otherwise move to next inventory index
0x01A39D|$06:$A38D:8A      	TXA        	; calculate inventory index mod 8
0x01A39E|$06:$A38E:29 07   	AND #$07   
0x01A3A0|$06:$A390:D0 F3   	BNE $A385  	; if this hero has more inventory to check, check it
; control flow target (from $A383)
0x01A3A2|$06:$A392:E6 0D   	INC $0D    	; increment hero ID
0x01A3A4|$06:$A394:A5 0D   	LDA $0D    
0x01A3A6|$06:$A396:C9 03   	CMP #$03   	; 3 heroes total
0x01A3A8|$06:$A398:D0 D7   	BNE $A371  	; if more heroes to check, check them
0x01A3AA|$06:$A39A:A2 FF   	LDX #$FF   	; otherwise flag item not found
; control flow target (from $A38A)
0x01A3AC|$06:$A39C:A4 10   	LDY $10    	; restore Y from $10
0x01A3AE|$06:$A39E:8A      	TXA        
; control flow target (from $A363)
0x01A3AF|$06:$A39F:60      	RTS        


; code -> data
; pre-computed offsets for the start of each hero's data (what's wrong with the same data at $06:$9D55?)
; indexed data load target (from $A373)
0x01A3B0|$06:$A3A0:00	; Midenhall
0x01A3B1|$06:$A3A1:12	; Cannock
0x01A3B2|$06:$A3A2:24	; Moonbrooke

; data -> code
; given item ID in $96 and hero ID in $97, set A to #$80 if hero can equip item, #$00 otherwise
; control flow target (from $831D, $8AA9)
0x01A3B3|$06:$A3A3:86 10   	STX $10    	; save X
0x01A3B5|$06:$A3A5:A5 96   	LDA $96    	; temp storage for item/spell/type/etc. IDs; item ID
0x01A3B7|$06:$A3A7:29 3F   	AND #$3F   	; strip off equipped bit
0x01A3B9|$06:$A3A9:AA      	TAX        
0x01A3BA|$06:$A3AA:BD BD A3	LDA $A3BD,X	; Bit fields controlling who can equip each item
0x01A3BD|$06:$A3AD:85 0D   	STA $0D    
0x01A3BF|$06:$A3AF:A4 97   	LDY $97    	; subject hero ID $97
0x01A3C1|$06:$A3B1:C8      	INY        	; number of bits to shift
; control flow target (from $A3B8)
0x01A3C2|$06:$A3B2:A9 00   	LDA #$00   	; initialize return value
0x01A3C4|$06:$A3B4:46 0D   	LSR $0D    	; shift hero's equipability bit into C
0x01A3C6|$06:$A3B6:6A      	ROR        	; and then into A
0x01A3C7|$06:$A3B7:88      	DEY        	; number of bits to shift
0x01A3C8|$06:$A3B8:D0 F8   	BNE $A3B2  	; if it's the wrong hero's data, loop to next hero
0x01A3CA|$06:$A3BA:A6 10   	LDX $10    	; restore X
0x01A3CC|$06:$A3BC:60      	RTS        


; code -> data
; Bit fields controlling who can equip each item
; #$01 = Midenhall, #$02 = Cannock, #$04 = Moonbrooke
; indexed data load target (from $A3AA)
0x01A3CD|$06:$A3BD:00	; Item ID #$00: (no item)
0x01A3CE|$06:$A3BE:07	; Item ID #$01: Bamboo Stick
0x01A3CF|$06:$A3BF:07	; Item ID #$02: Magic Knife
0x01A3D0|$06:$A3C0:07	; Item ID #$03: Wizard’s Wand
0x01A3D1|$06:$A3C1:07	; Item ID #$04: Staff of Thunder
0x01A3D2|$06:$A3C2:03	; Item ID #$05: Club
0x01A3D3|$06:$A3C3:03	; Item ID #$06: Copper Sword
0x01A3D4|$06:$A3C4:03	; Item ID #$07: Chain Sickle
0x01A3D5|$06:$A3C5:03	; Item ID #$08: Iron Spear
0x01A3D6|$06:$A3C6:03	; Item ID #$09: Falcon Sword
0x01A3D7|$06:$A3C7:01	; Item ID #$0A: Broad Sword
0x01A3D8|$06:$A3C8:01	; Item ID #$0B: Giant Hammer
0x01A3D9|$06:$A3C9:01	; Item ID #$0C: Sword of Destruction
0x01A3DA|$06:$A3CA:01	; Item ID #$0D: Dragon Killer
0x01A3DB|$06:$A3CB:01	; Item ID #$0E: Light Sword
0x01A3DC|$06:$A3CC:01	; Item ID #$0F: Sword of Erdrick
0x01A3DD|$06:$A3CD:01	; Item ID #$10: Thunder Sword

0x01A3DE|$06:$A3CE:07	; Item ID #$11: Clothes
0x01A3DF|$06:$A3CF:07	; Item ID #$12: Clothes Hiding
0x01A3E0|$06:$A3D0:07	; Item ID #$13: Water Flying Cloth
0x01A3E1|$06:$A3D1:07	; Item ID #$14: Mink Coat
0x01A3E2|$06:$A3D2:03	; Item ID #$15: Leather Armor
0x01A3E3|$06:$A3D3:03	; Item ID #$16: Chain Mail
0x01A3E4|$06:$A3D4:03	; Item ID #$17: Gremlin’s Armor
0x01A3E5|$06:$A3D5:03	; Item ID #$18: Magic Armor
0x01A3E6|$06:$A3D6:01	; Item ID #$19: Full Plate Armor
0x01A3E7|$06:$A3D7:01	; Item ID #$1A: Armor of Gaia
0x01A3E8|$06:$A3D8:01	; Item ID #$1B: Armor of Erdrick

0x01A3E9|$06:$A3D9:03	; Item ID #$1C: Leather Shield
0x01A3EA|$06:$A3DA:03	; Item ID #$1D: Shield of Strength
0x01A3EB|$06:$A3DB:01	; Item ID #$1E: Steel Shield
0x01A3EC|$06:$A3DC:01	; Item ID #$1F: Evil Shield
0x01A3ED|$06:$A3DD:01	; Item ID #$20: Shield of Erdrick

0x01A3EE|$06:$A3DE:07	; Item ID #$21: Mysterious Hat
0x01A3EF|$06:$A3DF:01	; Item ID #$22: Iron Helmet
0x01A3F0|$06:$A3E0:01	; Item ID #$23: Helmet of Erdrick
; pointers to warp spaces for irregularly-shaped maps
; indirect data load target (via $8042)
; external indexed data load target (from $0F:$E8BC)
0x01A3F1|$06:$A3E1:00
; external indexed data load target (from $0F:$E8C1)
0x01A3F2|$06:$A3E2:   00	; $06:$0000; Map ID #$2B: Cave to Hamlin
0x01A3F3|$06:$A3E3:1B A4	; $06:$A41B; Map ID #$2C: Lake Cave B1
0x01A3F5|$06:$A3E5:30 A4	; $06:$A430; Map ID #$2D: Lake Cave B2
0x01A3F7|$06:$A3E7:45 A4	; $06:$A445; Map ID #$2E: Sea Cave B1
0x01A3F9|$06:$A3E9:50 A4	; $06:$A450; Map ID #$2F: Sea Cave B2
0x01A3FB|$06:$A3EB:00 00	; $06:$0000; Map ID #$30: Sea Cave B3-1
0x01A3FD|$06:$A3ED:00 00	; $06:$0000; Map ID #$31: Sea Cave B3-2
0x01A3FF|$06:$A3EF:00 00	; $06:$0000; Map ID #$32: Sea Cave B4
0x01A401|$06:$A3F1:00 00	; $06:$0000; Map ID #$33: Sea Cave B5
0x01A403|$06:$A3F3:00 00	; $06:$0000; Map ID #$34: Charlock Castle B1/B2
0x01A405|$06:$A3F5:00 00	; $06:$0000; Map ID #$35: Charlock Castle B3/B4-1/B5-1
0x01A407|$06:$A3F7:00 00	; $06:$0000; Map ID #$36: Charlock Castle B4-2/B5-2/B6
0x01A409|$06:$A3F9:00 00	; $06:$0000; Map ID #$37: Cave to Rhone B1
0x01A40B|$06:$A3FB:00 00	; $06:$0000; Map ID #$38: Cave to Rhone 1F
0x01A40D|$06:$A3FD:5B A4	; $06:$A45B; Map ID #$39: Cave to Rhone 2F-1
0x01A40F|$06:$A3FF:98 A4	; $06:$A498; Map ID #$3A: Cave to Rhone 2F-2
0x01A411|$06:$A401:D5 A4	; $06:$A4D5; Map ID #$3B: Cave to Rhone 2F-3
0x01A413|$06:$A403:F4 A4	; $06:$A4F4; Map ID #$3C: Cave to Rhone 3F
0x01A415|$06:$A405:00 00	; $06:$0000; Map ID #$3D: Cave to Rhone 4F
0x01A417|$06:$A407:00 00	; $06:$0000; Map ID #$3E: Cave to Rhone 5F
0x01A419|$06:$A409:31 A5	; $06:$A531; Map ID #$3F: Cave to Rhone 6F
0x01A41B|$06:$A40B:00 00	; $06:$0000; Map ID #$40: Spring of Bravery
0x01A41D|$06:$A40D:00 00	; $06:$0000; Map ID #$41: unused?
0x01A41F|$06:$A40F:00 00	; $06:$0000; Map ID #$42: unused?
0x01A421|$06:$A411:00 00	; $06:$0000; Map ID #$43: Cave to Rimuldar
0x01A423|$06:$A413:00 00	; $06:$0000; Map ID #$44: Hargon's Castle 2F
0x01A425|$06:$A415:00 00	; $06:$0000; Map ID #$45: Hargon's Castle 3F
0x01A427|$06:$A417:00 00	; $06:$0000; Map ID #$46: Hargon's Castle 4F
0x01A429|$06:$A419:00 00	; $06:$0000; Map ID #$47: Hargon's Castle 5F
; warp spaces for irregularly-shaped maps; format is (destination map ID, destination X-pos, destination Y-pos, transition X-pos, transition Y-pos), all positions are 7-bit, describing a 2x2 space
; Map ID #$2C: Lake Cave B1
; indirect data load target (via $A3E3)
0x01A42B|$06:$A41B:2C 1E 16 FE 10
0x01A430|$06:$A420:2C 00 10 20 16
0x01A435|$06:$A425:2C 04 00 18 20
0x01A43A|$06:$A42A:2C 18 1E 04 FE
; indirect data load target
0x01A43F|$06:$A42F:FF
; Map ID #$2D: Lake Cave B2
; indirect data load target (via $A3E5)
0x01A440|$06:$A430:2D 16 02 0E 20
0x01A445|$06:$A435:2D 0E 1E 16 00
0x01A44A|$06:$A43A:2D 1A 1C FE 1C
0x01A44F|$06:$A43F:2D 00 1C 1C 1C
; indirect data load target
0x01A454|$06:$A444:FF
; Map ID #$2E: Sea Cave B1
; indirect data load target (via $A3E7)
0x01A455|$06:$A445:2E 04 02 02 1C
0x01A45A|$06:$A44A:2E 02 1A 04 00
; indirect data load target
0x01A45F|$06:$A44F:FF
; Map ID #$2F: Sea Cave B2
; indirect data load target (via $A3E9)
0x01A460|$06:$A450:2F 20 14 12 28
0x01A465|$06:$A455:2F 12 26 20 12
; indirect data load target
0x01A46A|$06:$A45A:FF
; Map ID #$39: Cave to Rhone 2F-1
; indirect data load target (via $A3FD)
0x01A46B|$06:$A45B:3A 06 0A 06 00
0x01A470|$06:$A460:3A 10 0A 10 00
0x01A475|$06:$A465:3A 1A 0A 1A 00
0x01A47A|$06:$A46A:3A 24 0A 24 00
0x01A47F|$06:$A46F:3A 2E 0A 2E 00
0x01A484|$06:$A474:3A 06 02 06 0C
0x01A489|$06:$A479:3A 10 02 10 0C
0x01A48E|$06:$A47E:3A 1A 02 1A 0C
0x01A493|$06:$A483:3A 24 02 24 0C
0x01A498|$06:$A488:3A 2E 02 2E 0C
0x01A49D|$06:$A48D:3B 08 04 FE 08
0x01A4A2|$06:$A492:3B 00 04 36 08
; indirect data load target
0x01A4A7|$06:$A497:FF
; Map ID #$3A: Cave to Rhone 2F-2
; indirect data load target (via $A3FF)
0x01A4A8|$06:$A498:39 06 0A 06 00
0x01A4AD|$06:$A49D:39 10 0A 10 00
0x01A4B2|$06:$A4A2:39 1A 0A 1A 00
0x01A4B7|$06:$A4A7:39 24 0A 24 00
0x01A4BC|$06:$A4AC:39 2E 0A 2E 00
0x01A4C1|$06:$A4B1:39 06 02 06 0C
0x01A4C6|$06:$A4B6:39 10 02 10 0C
0x01A4CB|$06:$A4BB:39 1A 02 1A 0C
0x01A4D0|$06:$A4C0:39 24 02 24 0C
0x01A4D5|$06:$A4C5:39 2E 02 2E 0C
0x01A4DA|$06:$A4CA:3B 08 0E FE 08
0x01A4DF|$06:$A4CF:3B 00 0E 36 08
; indirect data load target
0x01A4E4|$06:$A4D4:FF
; Map ID #$3B: Cave to Rhone 2F-3
; indirect data load target (via $A401)
0x01A4E5|$06:$A4D5:3B 04 00 04 14
0x01A4EA|$06:$A4DA:3B 04 12 04 FE
0x01A4EF|$06:$A4DF:39 34 08 FE 04
0x01A4F4|$06:$A4E4:39 00 08 0A 04
0x01A4F9|$06:$A4E9:3A 34 08 FE 0E
0x01A4FE|$06:$A4EE:3A 00 08 0A 0E
; indirect data load target
0x01A503|$06:$A4F3:FF
; Map ID #$3C: Cave to Rhone 3F
; indirect data load target (via $A403)
0x01A504|$06:$A4F4:3C 16 18 FE 06
0x01A509|$06:$A4F9:3C 00 06 18 18
0x01A50E|$06:$A4FE:3C 26 0A FE 12
0x01A513|$06:$A503:3C 00 12 28 0A
0x01A518|$06:$A508:3C 26 16 FE 22
0x01A51D|$06:$A50D:3C 00 22 28 16
0x01A522|$06:$A512:3C 22 1E 20 38
0x01A527|$06:$A517:3C 20 36 22 1C
0x01A52C|$06:$A51C:3C 0A 2A 28 34
0x01A531|$06:$A521:3C 26 34 08 2A
0x01A536|$06:$A526:3C 26 02 10 16
0x01A53B|$06:$A52B:3C 12 16 28 02
; indirect data load target
0x01A540|$06:$A530:FF
; Map ID #$3F: Cave to Rhone 6F
; indirect data load target (via $A409)
0x01A541|$06:$A531:3F 02 16 1A 12
0x01A546|$06:$A536:3F 18 12 00 16
0x01A54B|$06:$A53B:3F 18 12 20 14
0x01A550|$06:$A540:3F 18 12 FE 02
0x01A555|$06:$A545:3F 08 0C 12 0E
0x01A55A|$06:$A54A:3F 12 10 08 0E
0x01A55F|$06:$A54F:3F 12 10 06 30
0x01A564|$06:$A554:3F 24 0E 0A 12
0x01A569|$06:$A559:3F 0C 12 26 0E
0x01A56E|$06:$A55E:3F 0C 12 06 02
0x01A573|$06:$A563:3F 0C 12 06 12
0x01A578|$06:$A568:3F 00 0C 28 02
0x01A57D|$06:$A56D:3F 26 02 FE 0C
0x01A582|$06:$A572:3F 00 12 28 1A
0x01A587|$06:$A577:3F 26 1A FE 12
0x01A58C|$06:$A57C:3F 00 26 1E 04
0x01A591|$06:$A581:3F 00 26 28 14
0x01A596|$06:$A586:3F 00 26 20 1C
0x01A59B|$06:$A58B:3F 10 2C 12 24
0x01A5A0|$06:$A590:3F 10 2C 20 22
0x01A5A5|$06:$A595:3F 10 2C 1A 2C
0x01A5AA|$06:$A59A:3F 22 22 12 2C
0x01A5AF|$06:$A59F:3F 00 1C 28 24
0x01A5B4|$06:$A5A4:3F 00 1C 28 2C
0x01A5B9|$06:$A5A9:3F 26 24 FE 1C
0x01A5BE|$06:$A5AE:3F 00 20 28 28
0x01A5C3|$06:$A5B3:3F 26 28 FE 20
0x01A5C8|$06:$A5B8:3F 1C 2C 28 20
0x01A5CD|$06:$A5BD:3F 0E 0C 1E 26
0x01A5D2|$06:$A5C2:3F 1A 1E 0A FE
0x01A5D7|$06:$A5C7:3F 16 2E 1C 16
0x01A5DC|$06:$A5CC:3F 08 18 1C 24
0x01A5E1|$06:$A5D1:3F 1A 24 06 18
0x01A5E6|$06:$A5D6:3F 18 0A 16 1E
0x01A5EB|$06:$A5DB:3F 14 1E 16 0A
0x01A5F0|$06:$A5E0:3F 06 2E 12 FE
0x01A5F5|$06:$A5E5:3F 0C 24 0E 0E
0x01A5FA|$06:$A5EA:3F 0C 24 1A 20
0x01A5FF|$06:$A5EF:3F 0C 24 16 30
0x01A604|$06:$A5F4:3F 12 0A 12 1A
0x01A609|$06:$A5F9:3F 12 18 12 08
0x01A60E|$06:$A5FE:3F 12 18 0C 22
0x01A613|$06:$A603:3F 12 18 22 FE
0x01A618|$06:$A608:3F 1C 04 FE 26
0x01A61D|$06:$A60D:FF

; data -> code
0x01A61E|$06:$A60E:A9 FF   	LDA #$FF   
0x01A620|$06:$A610:D0 02   	BNE $A614  
; indirect control flow target (via $8000)
0x01A622|$06:$A612:A9 00   	LDA #$00   
; control flow target (from $A610)
0x01A624|$06:$A614:20 1A A6	JSR $A61A  
; call to code in a different bank ($0F:$C1DC)
0x01A627|$06:$A617:4C DC C1	JMP $C1DC  	; set $6007 = #$00, set $00 = #$01, wait for interrupt, set $00 = #$FF

; control flow target (from $A614)
; indirect control flow target (via $803C)
0x01A62A|$06:$A61A:48      	PHA        
0x01A62B|$06:$A61B:AD 01 00	LDA $0001  
0x01A62E|$06:$A61E:F0 03   	BEQ $A623  
; call to code in a different bank ($0F:$C1DC)
0x01A630|$06:$A620:20 DC C1	JSR $C1DC  	; set $6007 = #$00, set $00 = #$01, wait for interrupt, set $00 = #$FF
; control flow target (from $A61E)
0x01A633|$06:$A623:A9 01   	LDA #$01   
0x01A635|$06:$A625:8D 83 01	STA $0183  
0x01A638|$06:$A628:A9 00   	LDA #$00   
0x01A63A|$06:$A62A:8D 80 60	STA $6080  
0x01A63D|$06:$A62D:68      	PLA        
0x01A63E|$06:$A62E:20 63 A7	JSR $A763  
0x01A641|$06:$A631:A9 00   	LDA #$00   
0x01A643|$06:$A633:8D 81 60	STA $6081  
0x01A646|$06:$A636:8D 82 60	STA $6082  
0x01A649|$06:$A639:AD 7B 60	LDA $607B  
0x01A64C|$06:$A63C:48      	PHA        
0x01A64D|$06:$A63D:29 F0   	AND #$F0   
0x01A64F|$06:$A63F:4A      	LSR        
0x01A650|$06:$A640:4A      	LSR        
0x01A651|$06:$A641:4A      	LSR        
0x01A652|$06:$A642:8D 7E 60	STA $607E  
0x01A655|$06:$A645:68      	PLA        
0x01A656|$06:$A646:29 0F   	AND #$0F   
0x01A658|$06:$A648:0A      	ASL        
0x01A659|$06:$A649:8D 7F 60	STA $607F  
0x01A65C|$06:$A64C:8D 83 60	STA $6083  
0x01A65F|$06:$A64F:AE 02 00	LDX $0002  
; control flow target (from $A6D0)
0x01A662|$06:$A652:A5 08   	LDA $08    
0x01A664|$06:$A654:8D 90 60	STA $6090  
0x01A667|$06:$A657:A5 07   	LDA $07    
0x01A669|$06:$A659:8D 8F 60	STA $608F  
0x01A66C|$06:$A65C:29 1F   	AND #$1F   
0x01A66E|$06:$A65E:8D 8B 60	STA $608B  
0x01A671|$06:$A661:A9 20   	LDA #$20   
0x01A673|$06:$A663:38      	SEC        
0x01A674|$06:$A664:ED 8B 60	SBC $608B  
0x01A677|$06:$A667:8D 8D 60	STA $608D  
0x01A67A|$06:$A66A:AD 7F 60	LDA $607F  
0x01A67D|$06:$A66D:38      	SEC        
0x01A67E|$06:$A66E:ED 8D 60	SBC $608D  
0x01A681|$06:$A671:8D 8E 60	STA $608E  
0x01A684|$06:$A674:F0 02   	BEQ $A678  
0x01A686|$06:$A676:B0 09   	BCS $A681  
; control flow target (from $A674)
0x01A688|$06:$A678:AD 7F 60	LDA $607F  
0x01A68B|$06:$A67B:8D 8D 60	STA $608D  
0x01A68E|$06:$A67E:4C A4 A6	JMP $A6A4  

; control flow target (from $A676)
0x01A691|$06:$A681:20 D6 A6	JSR $A6D6  
0x01A694|$06:$A684:AD 90 60	LDA $6090  
0x01A697|$06:$A687:49 04   	EOR #$04   
0x01A699|$06:$A689:8D 90 60	STA $6090  
0x01A69C|$06:$A68C:AD 8F 60	LDA $608F  
0x01A69F|$06:$A68F:29 1F   	AND #$1F   
0x01A6A1|$06:$A691:8D 8B 60	STA $608B  
0x01A6A4|$06:$A694:AD 8F 60	LDA $608F  
0x01A6A7|$06:$A697:38      	SEC        
0x01A6A8|$06:$A698:ED 8B 60	SBC $608B  
0x01A6AB|$06:$A69B:8D 8F 60	STA $608F  
0x01A6AE|$06:$A69E:AD 8E 60	LDA $608E  
0x01A6B1|$06:$A6A1:8D 8D 60	STA $608D  
; control flow target (from $A67E)
0x01A6B4|$06:$A6A4:20 D6 A6	JSR $A6D6  
0x01A6B7|$06:$A6A7:A5 08   	LDA $08    
0x01A6B9|$06:$A6A9:29 FB   	AND #$FB   
0x01A6BB|$06:$A6AB:C9 23   	CMP #$23   
0x01A6BD|$06:$A6AD:90 11   	BCC $A6C0  
0x01A6BF|$06:$A6AF:A5 07   	LDA $07    
0x01A6C1|$06:$A6B1:C9 A0   	CMP #$A0   
0x01A6C3|$06:$A6B3:90 0B   	BCC $A6C0  
0x01A6C5|$06:$A6B5:29 1F   	AND #$1F   
0x01A6C7|$06:$A6B7:85 07   	STA $07    
0x01A6C9|$06:$A6B9:A5 08   	LDA $08    
0x01A6CB|$06:$A6BB:29 FC   	AND #$FC   
0x01A6CD|$06:$A6BD:4C CB A6	JMP $A6CB  

; control flow target (from $A6AD, $A6B3)
0x01A6D0|$06:$A6C0:A5 07   	LDA $07    
0x01A6D2|$06:$A6C2:18      	CLC        
0x01A6D3|$06:$A6C3:69 20   	ADC #$20   
0x01A6D5|$06:$A6C5:85 07   	STA $07    
0x01A6D7|$06:$A6C7:A5 08   	LDA $08    
0x01A6D9|$06:$A6C9:69 00   	ADC #$00   
; control flow target (from $A6BD)
0x01A6DB|$06:$A6CB:85 08   	STA $08    
0x01A6DD|$06:$A6CD:CE 7E 60	DEC $607E  
0x01A6E0|$06:$A6D0:D0 80   	BNE $A652  
0x01A6E2|$06:$A6D2:8E 02 00	STX $0002  
0x01A6E5|$06:$A6D5:60      	RTS        

; control flow target (from $A681, $A6A4)
0x01A6E6|$06:$A6D6:AD 90 60	LDA $6090  
0x01A6E9|$06:$A6D9:09 80   	ORA #$80   
0x01A6EB|$06:$A6DB:9D 00 03	STA $0300,X	; PPU write buffer start
0x01A6EE|$06:$A6DE:AD 8D 60	LDA $608D  
0x01A6F1|$06:$A6E1:9D 01 03	STA $0301,X
0x01A6F4|$06:$A6E4:AD 8F 60	LDA $608F  
0x01A6F7|$06:$A6E7:9D 02 03	STA $0302,X
0x01A6FA|$06:$A6EA:E8      	INX        
0x01A6FB|$06:$A6EB:E8      	INX        
0x01A6FC|$06:$A6EC:E8      	INX        
0x01A6FD|$06:$A6ED:AD 8D 60	LDA $608D  
0x01A700|$06:$A6F0:48      	PHA        
0x01A701|$06:$A6F1:AC 81 60	LDY $6081  
; control flow target (from $A6FF)
0x01A704|$06:$A6F4:B9 0B 60	LDA $600B,Y
0x01A707|$06:$A6F7:9D 00 03	STA $0300,X	; PPU write buffer start
0x01A70A|$06:$A6FA:E8      	INX        
0x01A70B|$06:$A6FB:C8      	INY        
0x01A70C|$06:$A6FC:CE 8D 60	DEC $608D  
0x01A70F|$06:$A6FF:D0 F3   	BNE $A6F4  
0x01A711|$06:$A701:8C 81 60	STY $6081  
0x01A714|$06:$A704:68      	PLA        
0x01A715|$06:$A705:4A      	LSR        
0x01A716|$06:$A706:8D 8D 60	STA $608D  
0x01A719|$06:$A709:AD 7E 60	LDA $607E  
0x01A71C|$06:$A70C:29 01   	AND #$01   
0x01A71E|$06:$A70E:F0 4F   	BEQ $A75F  
0x01A720|$06:$A710:AC 82 60	LDY $6082  
0x01A723|$06:$A713:AD 90 60	LDA $6090  
0x01A726|$06:$A716:8D 98 60	STA $6098  
0x01A729|$06:$A719:AD 8F 60	LDA $608F  
0x01A72C|$06:$A71C:8D 97 60	STA $6097  
; control flow target (from $A75A)
0x01A72F|$06:$A71F:8A      	TXA        
0x01A730|$06:$A720:48      	PHA        
0x01A731|$06:$A721:98      	TYA        
0x01A732|$06:$A722:48      	PHA        
0x01A733|$06:$A723:AD 90 60	LDA $6090  
0x01A736|$06:$A726:48      	PHA        
0x01A737|$06:$A727:B9 6B 60	LDA $606B,Y
0x01A73A|$06:$A72A:20 89 A7	JSR $A789  
0x01A73D|$06:$A72D:8D 8B 60	STA $608B  
0x01A740|$06:$A730:68      	PLA        
0x01A741|$06:$A731:8D 90 60	STA $6090  
0x01A744|$06:$A734:68      	PLA        
0x01A745|$06:$A735:A8      	TAY        
0x01A746|$06:$A736:68      	PLA        
0x01A747|$06:$A737:AA      	TAX        
0x01A748|$06:$A738:AD 9A 60	LDA $609A  
0x01A74B|$06:$A73B:9D 00 03	STA $0300,X	; PPU write buffer start
0x01A74E|$06:$A73E:E8      	INX        
0x01A74F|$06:$A73F:AD 99 60	LDA $6099  
0x01A752|$06:$A742:9D 00 03	STA $0300,X	; PPU write buffer start
0x01A755|$06:$A745:E8      	INX        
0x01A756|$06:$A746:AD 8B 60	LDA $608B  
0x01A759|$06:$A749:9D 00 03	STA $0300,X	; PPU write buffer start
0x01A75C|$06:$A74C:E8      	INX        
0x01A75D|$06:$A74D:C8      	INY        
0x01A75E|$06:$A74E:EE 97 60	INC $6097  
0x01A761|$06:$A751:EE 97 60	INC $6097  
0x01A764|$06:$A754:EE 01 00	INC $0001  
0x01A767|$06:$A757:CE 8D 60	DEC $608D  
0x01A76A|$06:$A75A:D0 C3   	BNE $A71F  
0x01A76C|$06:$A75C:8C 82 60	STY $6082  
; control flow target (from $A70E)
0x01A76F|$06:$A75F:EE 01 00	INC $0001  
0x01A772|$06:$A762:60      	RTS        

; control flow target (from $A62E)
0x01A773|$06:$A763:48      	PHA        
0x01A774|$06:$A764:20 72 A7	JSR $A772  
0x01A777|$06:$A767:68      	PLA        
0x01A778|$06:$A768:D0 01   	BNE $A76B  
0x01A77A|$06:$A76A:60      	RTS        

; control flow target (from $A768)
0x01A77B|$06:$A76B:A5 08   	LDA $08    
0x01A77D|$06:$A76D:49 04   	EOR #$04   
0x01A77F|$06:$A76F:85 08   	STA $08    
0x01A781|$06:$A771:60      	RTS        

; control flow target (from $A764)
0x01A782|$06:$A772:AD 7C 60	LDA $607C  
0x01A785|$06:$A775:0A      	ASL        
0x01A786|$06:$A776:29 1E   	AND #$1E   
0x01A788|$06:$A778:8D 8B 60	STA $608B  
0x01A78B|$06:$A77B:AD 7C 60	LDA $607C  
0x01A78E|$06:$A77E:4A      	LSR        
0x01A78F|$06:$A77F:4A      	LSR        
0x01A790|$06:$A780:4A      	LSR        
0x01A791|$06:$A781:29 1E   	AND #$1E   
0x01A793|$06:$A783:8D 8C 60	STA $608C  
0x01A796|$06:$A786:4C 09 A8	JMP $A809  

; control flow target (from $A72A)
0x01A799|$06:$A789:8D 96 60	STA $6096  
0x01A79C|$06:$A78C:A9 1F   	LDA #$1F   
0x01A79E|$06:$A78E:2D 97 60	AND $6097  
0x01A7A1|$06:$A791:4A      	LSR        
0x01A7A2|$06:$A792:4A      	LSR        
0x01A7A3|$06:$A793:8D 90 60	STA $6090  
0x01A7A6|$06:$A796:A9 80   	LDA #$80   
0x01A7A8|$06:$A798:2D 97 60	AND $6097  
0x01A7AB|$06:$A79B:4A      	LSR        
0x01A7AC|$06:$A79C:4A      	LSR        
0x01A7AD|$06:$A79D:4A      	LSR        
0x01A7AE|$06:$A79E:4A      	LSR        
0x01A7AF|$06:$A79F:0D 90 60	ORA $6090  
0x01A7B2|$06:$A7A2:8D 90 60	STA $6090  
0x01A7B5|$06:$A7A5:A9 03   	LDA #$03   
0x01A7B7|$06:$A7A7:2D 98 60	AND $6098  
0x01A7BA|$06:$A7AA:0A      	ASL        
0x01A7BB|$06:$A7AB:0A      	ASL        
0x01A7BC|$06:$A7AC:0A      	ASL        
0x01A7BD|$06:$A7AD:0A      	ASL        
0x01A7BE|$06:$A7AE:09 C0   	ORA #$C0   
0x01A7C0|$06:$A7B0:0D 90 60	ORA $6090  
0x01A7C3|$06:$A7B3:8D 99 60	STA $6099  
0x01A7C6|$06:$A7B6:A2 23   	LDX #$23   
0x01A7C8|$06:$A7B8:AD 98 60	LDA $6098  
0x01A7CB|$06:$A7BB:C9 24   	CMP #$24   
0x01A7CD|$06:$A7BD:90 02   	BCC $A7C1  
0x01A7CF|$06:$A7BF:A2 27   	LDX #$27   
; control flow target (from $A7BD)
0x01A7D1|$06:$A7C1:8E 9A 60	STX $609A  
0x01A7D4|$06:$A7C4:AD 97 60	LDA $6097  
0x01A7D7|$06:$A7C7:29 40   	AND #$40   
0x01A7D9|$06:$A7C9:4A      	LSR        
0x01A7DA|$06:$A7CA:4A      	LSR        
0x01A7DB|$06:$A7CB:4A      	LSR        
0x01A7DC|$06:$A7CC:4A      	LSR        
0x01A7DD|$06:$A7CD:8D 93 60	STA $6093  
0x01A7E0|$06:$A7D0:AD 97 60	LDA $6097  
0x01A7E3|$06:$A7D3:29 02   	AND #$02   
0x01A7E5|$06:$A7D5:0D 93 60	ORA $6093  
0x01A7E8|$06:$A7D8:8D 93 60	STA $6093  
0x01A7EB|$06:$A7DB:AD 99 60	LDA $6099  
0x01A7EE|$06:$A7DE:85 57   	STA $57    	; pointer to start of main pointer table, low byte
0x01A7F0|$06:$A7E0:AD 9A 60	LDA $609A  
0x01A7F3|$06:$A7E3:29 07   	AND #$07   
0x01A7F5|$06:$A7E5:85 58   	STA $58    	; pointer to start of main pointer table, high byte
0x01A7F7|$06:$A7E7:A0 00   	LDY #$00   
0x01A7F9|$06:$A7E9:B1 57   	LDA ($57),Y	; pointer to start of main pointer table, low byte
0x01A7FB|$06:$A7EB:8D 94 60	STA $6094  
0x01A7FE|$06:$A7EE:A9 03   	LDA #$03   
0x01A800|$06:$A7F0:AC 93 60	LDY $6093  
0x01A803|$06:$A7F3:F0 07   	BEQ $A7FC  
; control flow target (from $A7FA)
0x01A805|$06:$A7F5:0A      	ASL        
0x01A806|$06:$A7F6:0E 96 60	ASL $6096  
0x01A809|$06:$A7F9:88      	DEY        
0x01A80A|$06:$A7FA:D0 F9   	BNE $A7F5  
; control flow target (from $A7F3)
0x01A80C|$06:$A7FC:49 FF   	EOR #$FF   
0x01A80E|$06:$A7FE:2D 94 60	AND $6094  
0x01A811|$06:$A801:0D 96 60	ORA $6096  
0x01A814|$06:$A804:A0 00   	LDY #$00   
0x01A816|$06:$A806:91 57   	STA ($57),Y	; pointer to start of main pointer table, low byte
0x01A818|$06:$A808:60      	RTS        

; from $02:$B74E, $06:$B0A8, $0F:$FD25, $0F:$FD98 via $8002
; control flow target (from $A786, $AF70)
; indirect control flow target (via $8002)
0x01A819|$06:$A809:A5 04   	LDA $04    
0x01A81B|$06:$A80B:0A      	ASL        
0x01A81C|$06:$A80C:0A      	ASL        
0x01A81D|$06:$A80D:29 04   	AND #$04   
0x01A81F|$06:$A80F:09 20   	ORA #$20   
0x01A821|$06:$A811:85 08   	STA $08    
0x01A823|$06:$A813:AD 8B 60	LDA $608B  
0x01A826|$06:$A816:0A      	ASL        
0x01A827|$06:$A817:0A      	ASL        
0x01A828|$06:$A818:0A      	ASL        
0x01A829|$06:$A819:18      	CLC        
0x01A82A|$06:$A81A:65 05   	ADC $05    
0x01A82C|$06:$A81C:85 07   	STA $07    
0x01A82E|$06:$A81E:90 06   	BCC $A826  
0x01A830|$06:$A820:A5 08   	LDA $08    
0x01A832|$06:$A822:49 04   	EOR #$04   
0x01A834|$06:$A824:85 08   	STA $08    
; control flow target (from $A81E)
0x01A836|$06:$A826:A5 06   	LDA $06    
0x01A838|$06:$A828:4A      	LSR        
0x01A839|$06:$A829:4A      	LSR        
0x01A83A|$06:$A82A:4A      	LSR        
0x01A83B|$06:$A82B:18      	CLC        
0x01A83C|$06:$A82C:6D 8C 60	ADC $608C  
0x01A83F|$06:$A82F:C9 1E   	CMP #$1E   
0x01A841|$06:$A831:90 02   	BCC $A835  
0x01A843|$06:$A833:E9 1E   	SBC #$1E   
; control flow target (from $A831)
0x01A845|$06:$A835:4A      	LSR        
0x01A846|$06:$A836:66 07   	ROR $07    
0x01A848|$06:$A838:4A      	LSR        
0x01A849|$06:$A839:66 07   	ROR $07    
0x01A84B|$06:$A83B:4A      	LSR        
0x01A84C|$06:$A83C:66 07   	ROR $07    
0x01A84E|$06:$A83E:05 08   	ORA $08    
0x01A850|$06:$A840:85 08   	STA $08    
0x01A852|$06:$A842:60      	RTS        

; display and handle main game menu
; from $0F:$C6C7 via $8004
; indirect control flow target (via $8004)
0x01A853|$06:$A843:A9 0C   	LDA #$0C   	; Music ID #$0C: game menu / Wellgarth singer BGM
0x01A855|$06:$A845:8D F7 05	STA $05F7  	; probably BGM for current area
; call to code in a different bank ($0F:$D14F)
0x01A858|$06:$A848:20 4F D1	JSR $D14F  
0x01A85B|$06:$A84B:A9 00   	LDA #$00   	; Music ID #$00: BGM off
0x01A85D|$06:$A84D:8D F7 05	STA $05F7  	; probably BGM for current area
0x01A860|$06:$A850:20 CA A8	JSR $A8CA  
; control flow target (from $A85C)
0x01A863|$06:$A853:20 7E A9	JSR $A97E  
; control flow target (from $A9CC)
0x01A866|$06:$A856:20 A3 A9	JSR $A9A3  	; open apporpriate main game menu based on number of filled save slots, set $75DB = #$0A, #$05, or #$00 based on number of filled slots, return menu selection index in A
0x01A869|$06:$A859:20 CF A9	JSR $A9CF  
0x01A86C|$06:$A85C:4C 53 A8	JMP $A853  

; from $0F:$D15F via $8008
; indirect control flow target (via $8008)
0x01A86F|$06:$A85F:A9 19   	LDA #$19   	; Menu ID #$19: General menu: YES/NO
0x01A871|$06:$A861:20 93 A9	JSR $A993  	; open menu specified by A
0x01A874|$06:$A864:AA      	TAX        
0x01A875|$06:$A865:D0 0D   	BNE $A874  	; branch if NO
0x01A877|$06:$A867:A9 FF   	LDA #$FF   
0x01A879|$06:$A869:8D 70 70	STA $7070  	; ????, SRAM buffer
0x01A87C|$06:$A86C:20 85 A8	JSR $A885  	; copy save data from system RAM to per-game save data
0x01A87F|$06:$A86F:A9 78   	LDA #$78   	; String ID #$0078: ‘I have entered thy deeds in the Imperial Scrolls of Honor[.’][wait][end-FC]
0x01A881|$06:$A871:20 9B A9	JSR $A99B  	; display string ID specified by A
; control flow target (from $A865)
0x01A884|$06:$A874:A9 79   	LDA #$79   	; String ID #$0079: ‘Dost thou wish to continue thy quest?’[FD][FD][end-FC]
0x01A886|$06:$A876:20 9B A9	JSR $A99B  	; display string ID specified by A
0x01A889|$06:$A879:A9 19   	LDA #$19   	; Menu ID #$19: General menu: YES/NO
0x01A88B|$06:$A87B:20 93 A9	JSR $A993  	; open menu specified by A
0x01A88E|$06:$A87E:AA      	TAX        
0x01A88F|$06:$A87F:D0 01   	BNE $A882  	; branch if NO
0x01A891|$06:$A881:60      	RTS        

; control flow target (from $A87F)
; call to code in a different bank ($0F:$D175)
0x01A892|$06:$A882:4C 75 D1	JMP $D175  

; copy save data from system RAM to per-game save data
; from $0F:$C6DA via $801E
; control flow target (from $A86C)
; indirect control flow target (via $801E)
0x01A895|$06:$A885:20 3C AC	JSR $AC3C  	; copy save data from system RAM to $7000-$706F
0x01A898|$06:$A888:20 AD AC	JSR $ACAD  	; initialize the RNG based on 71 passes using SRAM data $7000-$7070 and save resulting seed to $7071-$7072
0x01A89B|$06:$A88B:20 87 AB	JSR $AB87  	; copy data from SRAM buffer to per-game save data
0x01A89E|$06:$A88E:60      	RTS        

; copy Midenhall's short name from save slot in A to $0100 in reverse
; from $0F:$EE7E via $801C
; indirect control flow target (via $801C)
0x01A89F|$06:$A88F:20 F5 A9	JSR $A9F5  	; given save slot number in A, set $99-$9A to pointer to second part of save slot data
0x01A8A2|$06:$A892:A0 03   	LDY #$03   	; copy 4 bytes
0x01A8A4|$06:$A894:D0 08   	BNE $A89E  
; copy Midenhall's full name from save slot in $75DB to $0100 in reverse
; from $0F:$EF5B via $800A
; indirect control flow target (via $800A)
0x01A8A6|$06:$A896:AD DB 75	LDA $75DB  	; in game: current game save slot; out of game: various temporary game menu setup values
0x01A8A9|$06:$A899:20 F5 A9	JSR $A9F5  	; given save slot number in A, set $99-$9A to pointer to second part of save slot data
0x01A8AC|$06:$A89C:A0 07   	LDY #$07   	; copy 8 bytes
; control flow target (from $A894)
0x01A8AE|$06:$A89E:A2 00   	LDX #$00   
; control flow target (from $A8A7)
0x01A8B0|$06:$A8A0:B1 99   	LDA ($99),Y
0x01A8B2|$06:$A8A2:9D 00 01	STA $0100,X	; string copy buffer start (often referenced as $00FF,X)
0x01A8B5|$06:$A8A5:E8      	INX        
0x01A8B6|$06:$A8A6:88      	DEY        
0x01A8B7|$06:$A8A7:10 F7   	BPL $A8A0  
0x01A8B9|$06:$A8A9:60      	RTS        

; given current game save slot in $75DB, return Midenhall's level in that save game in A/$0E
; indirect control flow target (via $800C)
0x01A8BA|$06:$A8AA:AD DB 75	LDA $75DB  	; in game: current game save slot; out of game: various temporary game menu setup values
0x01A8BD|$06:$A8AD:20 F5 A9	JSR $A9F5  	; given save slot number in A, set $99-$9A to pointer to second part of save slot data
0x01A8C0|$06:$A8B0:A0 08   	LDY #$08   	; offset for Midenhall's level
0x01A8C2|$06:$A8B2:B1 99   	LDA ($99),Y
0x01A8C4|$06:$A8B4:85 0E   	STA $0E    
0x01A8C6|$06:$A8B6:60      	RTS        

; indirect control flow target (via $800E)
0x01A8C7|$06:$A8B7:20 F5 A9	JSR $A9F5  	; given save slot number in A, set $99-$9A to pointer to second part of save slot data
0x01A8CA|$06:$A8BA:A2 02   	LDX #$02   
0x01A8CC|$06:$A8BC:A0 09   	LDY #$09   
0x01A8CE|$06:$A8BE:B1 99   	LDA ($99),Y
0x01A8D0|$06:$A8C0:30 06   	BMI $A8C8  
0x01A8D2|$06:$A8C2:C9 46   	CMP #$46   
0x01A8D4|$06:$A8C4:F0 01   	BEQ $A8C7  
0x01A8D6|$06:$A8C6:CA      	DEX        
; control flow target (from $A8C4)
0x01A8D7|$06:$A8C7:CA      	DEX        
; control flow target (from $A8C0)
0x01A8D8|$06:$A8C8:8A      	TXA        
0x01A8D9|$06:$A8C9:60      	RTS        

; control flow target (from $A850)
0x01A8DA|$06:$A8CA:A2 05   	LDX #$05   
; control flow target (from $A8DF)
0x01A8DC|$06:$A8CC:BD B9 AD	LDA $ADB9,X
0x01A8DF|$06:$A8CF:DD FA 75	CMP $75FA,X
0x01A8E2|$06:$A8D2:F0 0A   	BEQ $A8DE  
0x01A8E4|$06:$A8D4:DD 01 60	CMP $6001,X
0x01A8E7|$06:$A8D7:F0 05   	BEQ $A8DE  
0x01A8E9|$06:$A8D9:DD A7 61	CMP $61A7,X
0x01A8EC|$06:$A8DC:D0 05   	BNE $A8E3  
; control flow target (from $A8D2, $A8D7)
0x01A8EE|$06:$A8DE:CA      	DEX        
0x01A8EF|$06:$A8DF:10 EB   	BPL $A8CC  
0x01A8F1|$06:$A8E1:30 36   	BMI $A919  
; control flow target (from $A8DC)
0x01A8F3|$06:$A8E3:AD F4 AD	LDA $ADF4  
0x01A8F6|$06:$A8E6:8D 99 00	STA $0099  
0x01A8F9|$06:$A8E9:AD F5 AD	LDA $ADF5  
0x01A8FC|$06:$A8EC:8D 9A 00	STA $009A  
0x01A8FF|$06:$A8EF:A2 0D   	LDX #$0D   
; control flow target (from $A908)
0x01A901|$06:$A8F1:A0 72   	LDY #$72   
0x01A903|$06:$A8F3:A9 00   	LDA #$00   
; control flow target (from $A8F8)
0x01A905|$06:$A8F5:91 99   	STA ($99),Y
0x01A907|$06:$A8F7:88      	DEY        
0x01A908|$06:$A8F8:10 FB   	BPL $A8F5  
0x01A90A|$06:$A8FA:38      	SEC        
0x01A90B|$06:$A8FB:A5 99   	LDA $99    
0x01A90D|$06:$A8FD:E9 73   	SBC #$73   
0x01A90F|$06:$A8FF:85 99   	STA $99    
0x01A911|$06:$A901:A5 9A   	LDA $9A    
0x01A913|$06:$A903:E9 00   	SBC #$00   
0x01A915|$06:$A905:85 9A   	STA $9A    
0x01A917|$06:$A907:CA      	DEX        
0x01A918|$06:$A908:D0 E7   	BNE $A8F1  
0x01A91A|$06:$A90A:A9 00   	LDA #$00   
0x01A91C|$06:$A90C:8D DA 75	STA $75DA  	; bit field for which save game slots are filled
0x01A91F|$06:$A90F:A2 02   	LDX #$02   
0x01A921|$06:$A911:A9 FF   	LDA #$FF   
; control flow target (from $A917)
0x01A923|$06:$A913:9D D7 75	STA $75D7,X	; save slot 1 status (write-only?)
0x01A926|$06:$A916:CA      	DEX        
0x01A927|$06:$A917:10 FA   	BPL $A913  
; control flow target (from $A8E1)
0x01A929|$06:$A919:A2 05   	LDX #$05   
; control flow target (from $A928)
0x01A92B|$06:$A91B:BD B9 AD	LDA $ADB9,X
0x01A92E|$06:$A91E:9D FA 75	STA $75FA,X
0x01A931|$06:$A921:9D 01 60	STA $6001,X
0x01A934|$06:$A924:9D A7 61	STA $61A7,X
0x01A937|$06:$A927:CA      	DEX        
0x01A938|$06:$A928:10 F1   	BPL $A91B  
0x01A93A|$06:$A92A:A9 00   	LDA #$00   
0x01A93C|$06:$A92C:8D DB 75	STA $75DB  	; in game: current game save slot; out of game: various temporary game menu setup values
; control flow target (from $A973)
0x01A93F|$06:$A92F:AE DB 75	LDX $75DB  	; in game: current game save slot; out of game: various temporary game menu setup values
0x01A942|$06:$A932:AD DA 75	LDA $75DA  	; bit field for which save game slots are filled
; control flow target (from $A937)
0x01A945|$06:$A935:4A      	LSR        
0x01A946|$06:$A936:CA      	DEX        
0x01A947|$06:$A937:10 FC   	BPL $A935  
0x01A949|$06:$A939:90 30   	BCC $A96B  
0x01A94B|$06:$A93B:20 44 AB	JSR $AB44  	; copy current save game's data to save data buffer at $7000; CLC if data is valid, SEC if it's unrecoverable
0x01A94E|$06:$A93E:90 28   	BCC $A968  
0x01A950|$06:$A940:AE DB 75	LDX $75DB  	; in game: current game save slot; out of game: various temporary game menu setup values
0x01A953|$06:$A943:A9 FD   	LDA #$FD   
0x01A955|$06:$A945:9D D7 75	STA $75D7,X	; save slot 1 status (write-only?)
0x01A958|$06:$A948:E8      	INX        
0x01A959|$06:$A949:86 8F   	STX $8F    
0x01A95B|$06:$A94B:A9 00   	LDA #$00   
0x01A95D|$06:$A94D:85 90   	STA $90    
0x01A95F|$06:$A94F:A9 04   	LDA #$04   	; Menu ID #$04: Dialogue window
0x01A961|$06:$A951:20 93 A9	JSR $A993  	; open menu specified by A
0x01A964|$06:$A954:A9 0A   	LDA #$0A   	; Music ID #$0A: cursed BGM
; call to code in a different bank ($0F:$C58D)
0x01A966|$06:$A956:20 8D C5	JSR $C58D  	; play PCM specified by A (>= #$80 = sound effect [SFX], < #$80 = background music [BGM]), wait for it to finish, then play previous BGM
0x01A969|$06:$A959:E6 8E   	INC $8E    	; flag for in battle or not (#$FF)?
0x01A96B|$06:$A95B:A9 77   	LDA #$77   	; String ID #$0077: [no voice]I'm afraid that[line][no voice]scenario [number] was not[line][no voice]recorded in the[line][no voice]Imperial Scrolls of[line][no voice]Honor.[end-FC]
0x01A96D|$06:$A95D:20 9B A9	JSR $A99B  	; display string ID specified by A
0x01A970|$06:$A960:E6 8E   	INC $8E    	; flag for in battle or not (#$FF)?
0x01A972|$06:$A962:20 76 A9	JSR $A976  	; wait for controller input
0x01A975|$06:$A965:20 EB AA	JSR $AAEB  
; control flow target (from $A93E)
0x01A978|$06:$A968:20 02 AA	JSR $AA02  	; copy more data to second part of per-game save data
; control flow target (from $A939)
0x01A97B|$06:$A96B:EE DB 75	INC $75DB  	; in game: current game save slot; out of game: various temporary game menu setup values
0x01A97E|$06:$A96E:AD DB 75	LDA $75DB  	; in game: current game save slot; out of game: various temporary game menu setup values
0x01A981|$06:$A971:C9 03   	CMP #$03   
0x01A983|$06:$A973:90 BA   	BCC $A92F  
0x01A985|$06:$A975:60      	RTS        

; wait for controller input
; control flow target (from $A962, $A97B)
; call to code in a different bank ($0F:$C476)
0x01A986|$06:$A976:20 76 C4	JSR $C476  	; read joypad 1 data into $2F
0x01A989|$06:$A979:A5 2F   	LDA $2F    	; joypad 1 data
0x01A98B|$06:$A97B:F0 F9   	BEQ $A976  	; wait for controller input
0x01A98D|$06:$A97D:60      	RTS        

; control flow target (from $A853)
; call to code in a different bank ($0F:$C42A)
0x01A98E|$06:$A97E:20 2A C4	JSR $C42A  
; call to code in a different bank ($0F:$C446)
0x01A991|$06:$A981:20 46 C4	JSR $C446  	; turn screen off, write $800 [space] tiles to PPU $2000, turn screen on
; call to code in a different bank ($0F:$C1DC)
0x01A994|$06:$A984:20 DC C1	JSR $C1DC  	; set $6007 = #$00, set $00 = #$01, wait for interrupt, set $00 = #$FF
0x01A997|$06:$A987:A9 80   	LDA #$80   
0x01A999|$06:$A989:8D 07 60	STA $6007  
; call to code in a different bank ($0F:$C41C)
0x01A99C|$06:$A98C:20 1C C4	JSR $C41C  	; wait for interrupt, turn screen sprites and backround on
; call to code in a different bank ($0F:$D14F)
0x01A99F|$06:$A98F:20 4F D1	JSR $D14F  
0x01A9A2|$06:$A992:60      	RTS        

; open menu specified by A
; control flow target (from $A861, $A87B, $A951, $A9C2, $AA76, $AAFE, $AB03, $AB1C)
0x01A9A3|$06:$A993:A2 06   	LDX #$06   
0x01A9A5|$06:$A995:86 94   	STX $94    	; return bank for various function calls, doubles as index of selected option for multiple-choice menus
; call to code in a different bank ($0F:$EB89)
0x01A9A7|$06:$A997:20 89 EB	JSR $EB89  	; open menu specified by A
0x01A9AA|$06:$A99A:60      	RTS        	; JMP > JSR + RTS

; display string ID specified by A
; control flow target (from $A871, $A876, $A95D)
0x01A9AB|$06:$A99B:A2 06   	LDX #$06   
0x01A9AD|$06:$A99D:86 94   	STX $94    	; return bank for various function calls, doubles as index of selected option for multiple-choice menus
; call to code in a different bank ($0F:$FA4A)
0x01A9AF|$06:$A99F:20 4A FA	JSR $FA4A  	; display string ID specified by A
0x01A9B2|$06:$A9A2:60      	RTS        

; open apporpriate main game menu based on number of filled save slots, set $75DB = #$0A, #$05, or #$00 based on number of filled slots, return menu selection index in A
; control flow target (from $A856)
0x01A9B3|$06:$A9A3:A2 02   	LDX #$02   
0x01A9B5|$06:$A9A5:AD DA 75	LDA $75DA  	; bit field for which save game slots are filled
0x01A9B8|$06:$A9A8:29 07   	AND #$07   
0x01A9BA|$06:$A9AA:F0 06   	BEQ $A9B2  	; 0 slots filled => use X = #$02
0x01A9BC|$06:$A9AC:C9 07   	CMP #$07   
0x01A9BE|$06:$A9AE:D0 01   	BNE $A9B1  	; 1-2 slots filled => use X = #$01
0x01A9C0|$06:$A9B0:CA      	DEX        	; 3 slots filled => use X = #$00
; control flow target (from $A9AE)
0x01A9C1|$06:$A9B1:CA      	DEX        
; control flow target (from $A9AA)
0x01A9C2|$06:$A9B2:8A      	TXA        
0x01A9C3|$06:$A9B3:8D DB 75	STA $75DB  	; in game: current game save slot; out of game: various temporary game menu setup values; base index into main game menu handlers
0x01A9C6|$06:$A9B6:0A      	ASL        
0x01A9C7|$06:$A9B7:0A      	ASL        
0x01A9C8|$06:$A9B8:6D DB 75	ADC $75DB  	; in game: current game save slot; out of game: various temporary game menu setup values; base index into main game menu handlers
0x01A9CB|$06:$A9BB:8D DB 75	STA $75DB  	; in game: current game save slot; out of game: various temporary game menu setup values; base index into main game menu handlers
0x01A9CE|$06:$A9BE:8A      	TXA        
0x01A9CF|$06:$A9BF:18      	CLC        
0x01A9D0|$06:$A9C0:69 32   	ADC #$32   	; Menu ID #$32 - #$34: Game menu: 3, 1-2, or 0 saves
0x01A9D2|$06:$A9C2:20 93 A9	JSR $A993  	; open menu specified by A
0x01A9D5|$06:$A9C5:C9 FF   	CMP #$FF   
0x01A9D7|$06:$A9C7:F0 01   	BEQ $A9CA  
0x01A9D9|$06:$A9C9:60      	RTS        

; control flow target (from $A9C7)
0x01A9DA|$06:$A9CA:68      	PLA        
0x01A9DB|$06:$A9CB:68      	PLA        
0x01A9DC|$06:$A9CC:4C 56 A8	JMP $A856  

; control flow target (from $A859)
0x01A9DF|$06:$A9CF:18      	CLC        
0x01A9E0|$06:$A9D0:6D DB 75	ADC $75DB  	; in game: current game save slot; out of game: various temporary game menu setup values; base index into main game menu handlers
0x01A9E3|$06:$A9D3:AA      	TAX        
0x01A9E4|$06:$A9D4:BD D7 AD	LDA $ADD7,X	; index into jump table at $ADE2
0x01A9E7|$06:$A9D7:0A      	ASL        
0x01A9E8|$06:$A9D8:AA      	TAX        
0x01A9E9|$06:$A9D9:BD E2 AD	LDA $ADE2,X	; jump table for main game menu handlers
0x01A9EC|$06:$A9DC:85 99   	STA $99    
0x01A9EE|$06:$A9DE:BD E3 AD	LDA $ADE3,X
0x01A9F1|$06:$A9E1:85 9A   	STA $9A    
0x01A9F3|$06:$A9E3:6C 99 00	JMP ($0099)

0x01A9F6|$06:$A9E6:A8      	TAY        
0x01A9F7|$06:$A9E7:A2 00   	LDX #$00   
0x01A9F9|$06:$A9E9:AD DA 75	LDA $75DA  	; bit field for which save game slots are filled
; control flow target (from $A9EE, $A9F1)
0x01A9FC|$06:$A9EC:E8      	INX        
0x01A9FD|$06:$A9ED:4A      	LSR        
0x01A9FE|$06:$A9EE:90 FC   	BCC $A9EC  
0x01AA00|$06:$A9F0:88      	DEY        
0x01AA01|$06:$A9F1:10 F9   	BPL $A9EC  
0x01AA03|$06:$A9F3:CA      	DEX        
0x01AA04|$06:$A9F4:8A      	TXA        
; given save slot number in A, set $99-$9A to pointer to second part of save slot data
; control flow target (from $A88F, $A899, $A8AD, $A8B7, $AA05)
0x01AA05|$06:$A9F5:0A      	ASL        
0x01AA06|$06:$A9F6:AA      	TAX        
0x01AA07|$06:$A9F7:BD F6 AD	LDA $ADF6,X
0x01AA0A|$06:$A9FA:85 99   	STA $99    
0x01AA0C|$06:$A9FC:BD F7 AD	LDA $ADF7,X
0x01AA0F|$06:$A9FF:85 9A   	STA $9A    
0x01AA11|$06:$AA01:60      	RTS        

; copy more data to second part of per-game save data
; control flow target (from $A968, $AB8C)
0x01AA12|$06:$AA02:AD DB 75	LDA $75DB  	; in game: current game save slot; out of game: various temporary game menu setup values
0x01AA15|$06:$AA05:20 F5 A9	JSR $A9F5  	; given save slot number in A, set $99-$9A to pointer to second part of save slot data
0x01AA18|$06:$AA08:A0 09   	LDY #$09   
0x01AA1A|$06:$AA0A:AD 6F 70	LDA $706F  	; current battle message delay, SRAM buffer
0x01AA1D|$06:$AA0D:91 99   	STA ($99),Y
0x01AA1F|$06:$AA0F:88      	DEY        
0x01AA20|$06:$AA10:AD 26 70	LDA $7026  
0x01AA23|$06:$AA13:91 99   	STA ($99),Y
0x01AA25|$06:$AA15:A2 03   	LDX #$03   
; control flow target (from $AA1E)
0x01AA27|$06:$AA17:88      	DEY        
0x01AA28|$06:$AA18:BD 63 70	LDA $7063,X	; party names, bytes 4-7, SRAM buffer
0x01AA2B|$06:$AA1B:91 99   	STA ($99),Y
0x01AA2D|$06:$AA1D:CA      	DEX        
0x01AA2E|$06:$AA1E:10 F7   	BPL $AA17  
0x01AA30|$06:$AA20:88      	DEY        
; control flow target (from $AA27)
0x01AA31|$06:$AA21:B9 09 70	LDA $7009,Y	; Midenhall name bytes 0-3, SRAM buffer
0x01AA34|$06:$AA24:91 99   	STA ($99),Y
0x01AA36|$06:$AA26:88      	DEY        
0x01AA37|$06:$AA27:10 F8   	BPL $AA21  
0x01AA39|$06:$AA29:60      	RTS        

; mark save game slot specified by $75DB as filled
; control flow target (from $AAAE, $AAD3)
0x01AA3A|$06:$AA2A:38      	SEC        
0x01AA3B|$06:$AA2B:A9 00   	LDA #$00   
0x01AA3D|$06:$AA2D:AE DB 75	LDX $75DB  	; in game: current game save slot; out of game: various temporary game menu setup values
; control flow target (from $AA32)
0x01AA40|$06:$AA30:2A      	ROL        
0x01AA41|$06:$AA31:CA      	DEX        
0x01AA42|$06:$AA32:10 FC   	BPL $AA30  	; keep shifting that 1 set bit until it's in the right position
0x01AA44|$06:$AA34:0D DA 75	ORA $75DA  	; bit field for which save game slots are filled
0x01AA47|$06:$AA37:8D DA 75	STA $75DA  	; bit field for which save game slots are filled
0x01AA4A|$06:$AA3A:60      	RTS        

; mark save game slot specified by $75DB as empty
; control flow target (from $AAEB)
0x01AA4B|$06:$AA3B:18      	CLC        
0x01AA4C|$06:$AA3C:A9 FF   	LDA #$FF   
0x01AA4E|$06:$AA3E:AE DB 75	LDX $75DB  	; in game: current game save slot; out of game: various temporary game menu setup values
; control flow target (from $AA43)
0x01AA51|$06:$AA41:2A      	ROL        
0x01AA52|$06:$AA42:CA      	DEX        
0x01AA53|$06:$AA43:10 FC   	BPL $AA41  	; keep shifting that 1 clear bit until it's in the right position
0x01AA55|$06:$AA45:2D DA 75	AND $75DA  	; bit field for which save game slots are filled
0x01AA58|$06:$AA48:8D DA 75	STA $75DA  	; bit field for which save game slots are filled
0x01AA5B|$06:$AA4B:60      	RTS        

; set $75D7,$75DB to #$FF (useless op?)
; control flow target (from $AAB1, $AAD6)
0x01AA5C|$06:$AA4C:A9 FF   	LDA #$FF   
0x01AA5E|$06:$AA4E:AE DB 75	LDX $75DB  	; in game: current game save slot; out of game: various temporary game menu setup values
0x01AA61|$06:$AA51:9D D7 75	STA $75D7,X	; save slot 1 status (write-only?)
0x01AA64|$06:$AA54:60      	RTS        

; CONTINUE A QUEST handler
; indirect control flow target (via $ADE2)
0x01AA65|$06:$AA55:20 0C AB	JSR $AB0C  	; display filled slots selection menu, set A/$75DB to selected slot
0x01AA68|$06:$AA58:20 44 AB	JSR $AB44  	; copy current save game's data to save data buffer at $7000; CLC if data is valid, SEC if it's unrecoverable
0x01AA6B|$06:$AA5B:20 C7 AB	JSR $ABC7  	; copy save data from save data buffer at $7000 to system RAM; update Don Mahone quest status if applicable
; control flow target (from $AABA)
0x01AA6E|$06:$AA5E:68      	PLA        
0x01AA6F|$06:$AA5F:68      	PLA        
; call to code in a different bank ($0F:$C577)
0x01AA70|$06:$AA60:20 77 C5	JSR $C577  	; set $6144 to #$05
0x01AA73|$06:$AA63:60      	RTS        

; CHANGE MESSAGE SPEED handler
; indirect control flow target (via $ADE4)
0x01AA74|$06:$AA64:20 0C AB	JSR $AB0C  	; display filled slots selection menu, set A/$75DB to selected slot
0x01AA77|$06:$AA67:20 44 AB	JSR $AB44  	; copy current save game's data to save data buffer at $7000; CLC if data is valid, SEC if it's unrecoverable
0x01AA7A|$06:$AA6A:20 6E AA	JSR $AA6E  	; display Menu ID #$45: Game menu: select message speed, update message speed based on new selection
0x01AA7D|$06:$AA6D:60      	RTS        

; display Menu ID #$45: Game menu: select message speed, update message speed based on new selection
; control flow target (from $AA6A, $AAA9)
0x01AA7E|$06:$AA6E:AD 6F 70	LDA $706F  	; current battle message delay, SRAM buffer
0x01AA81|$06:$AA71:8D 2C 06	STA $062C  	; current battle message delay
0x01AA84|$06:$AA74:A9 45   	LDA #$45   	; Menu ID #$45: Game menu: select message speed
0x01AA86|$06:$AA76:20 93 A9	JSR $A993  	; open menu specified by A
0x01AA89|$06:$AA79:C9 FF   	CMP #$FF   
0x01AA8B|$06:$AA7B:F0 12   	BEQ $AA8F  	; pop JSR return address and RTS back to to display and handle main game menu
0x01AA8D|$06:$AA7D:AA      	TAX        
0x01AA8E|$06:$AA7E:BD BF AD	LDA $ADBF,X	; battle message delays (frames between prints; higher = slower)
0x01AA91|$06:$AA81:8D 6F 70	STA $706F  	; current battle message delay, SRAM buffer
0x01AA94|$06:$AA84:8D 2C 06	STA $062C  	; current battle message delay
0x01AA97|$06:$AA87:20 AD AC	JSR $ACAD  	; initialize the RNG based on 71 passes using SRAM data $7000-$7070 and save resulting seed to $7071-$7072
0x01AA9A|$06:$AA8A:20 87 AB	JSR $AB87  	; copy data from SRAM buffer to per-game save data
0x01AA9D|$06:$AA8D:18      	CLC        
0x01AA9E|$06:$AA8E:60      	RTS        

; pop JSR return address and RTS back to to display and handle main game menu
; control flow target (from $AA7B)
0x01AA9F|$06:$AA8F:68      	PLA        
0x01AAA0|$06:$AA90:68      	PLA        
0x01AAA1|$06:$AA91:38      	SEC        
0x01AAA2|$06:$AA92:60      	RTS        

; BEGIN A NEW QUEST handler
; indirect control flow target (via $ADE6)
0x01AAA3|$06:$AA93:A9 00   	LDA #$00   
0x01AAA5|$06:$AA95:8D 70 70	STA $7070  	; ????, SRAM buffer
0x01AAA8|$06:$AA98:20 15 AB	JSR $AB15  	; display empty slots selection menu, set A/$75DB to selected slot
0x01AAAB|$06:$AA9B:20 CD AC	JSR $ACCD  
0x01AAAE|$06:$AA9E:20 C0 AA	JSR $AAC0  	; if $0100 is [space], pop JSR return address and RTS back to to display and handle main game menu
0x01AAB1|$06:$AAA1:A9 46   	LDA #$46   	; NORMAL
0x01AAB3|$06:$AAA3:8D 2C 06	STA $062C  	; current battle message delay
0x01AAB6|$06:$AAA6:8D 6F 70	STA $706F  	; current battle message delay, SRAM buffer
0x01AAB9|$06:$AAA9:20 6E AA	JSR $AA6E  	; display Menu ID #$45: Game menu: select message speed, update message speed based on new selection
0x01AABC|$06:$AAAC:B0 0F   	BCS $AABD  	; impossible branch; if $AA6E finishes with SEC, it also popped its return address, so control flow does not end up here
0x01AABE|$06:$AAAE:20 2A AA	JSR $AA2A  	; mark save game slot specified by $75DB as filled
0x01AAC1|$06:$AAB1:20 4C AA	JSR $AA4C  	; set $75D7,$75DB to #$FF (useless op?)
0x01AAC4|$06:$AAB4:20 AD AC	JSR $ACAD  	; initialize the RNG based on 71 passes using SRAM data $7000-$7070 and save resulting seed to $7071-$7072
0x01AAC7|$06:$AAB7:20 87 AB	JSR $AB87  	; copy data from SRAM buffer to per-game save data
0x01AACA|$06:$AABA:4C 5E AA	JMP $AA5E  

; pop JSR return address and RTS back to to display and handle main game menu
; control flow target (from $AAAC)
0x01AACD|$06:$AABD:68      	PLA        
0x01AACE|$06:$AABE:68      	PLA        
0x01AACF|$06:$AABF:60      	RTS        

; if $0100 is [space], pop JSR return address and RTS back to to display and handle main game menu
; control flow target (from $AA9E)
0x01AAD0|$06:$AAC0:AD 00 01	LDA $0100  	; string copy buffer start (often referenced as $00FF,X)
0x01AAD3|$06:$AAC3:C9 5F   	CMP #$5F   	; Tile ID #$5F: [space]
0x01AAD5|$06:$AAC5:D0 02   	BNE $AAC9  
0x01AAD7|$06:$AAC7:68      	PLA        
0x01AAD8|$06:$AAC8:68      	PLA        
; control flow target (from $AAC5)
0x01AAD9|$06:$AAC9:60      	RTS        

; COPY A QUEST handler
; indirect control flow target (via $ADE8)
0x01AADA|$06:$AACA:20 0C AB	JSR $AB0C  	; display filled slots selection menu, set A/$75DB to selected slot
0x01AADD|$06:$AACD:20 44 AB	JSR $AB44  	; copy current save game's data to save data buffer at $7000; CLC if data is valid, SEC if it's unrecoverable
0x01AAE0|$06:$AAD0:20 15 AB	JSR $AB15  	; display empty slots selection menu, set A/$75DB to selected slot
0x01AAE3|$06:$AAD3:20 2A AA	JSR $AA2A  	; mark save game slot specified by $75DB as filled
0x01AAE6|$06:$AAD6:20 4C AA	JSR $AA4C  	; set $75D7,$75DB to #$FF (useless op?)
0x01AAE9|$06:$AAD9:20 87 AB	JSR $AB87  	; copy data from SRAM buffer to per-game save data
0x01AAEC|$06:$AADC:60      	RTS        

; ERASE A QUEST handler
; indirect control flow target (via $ADEA)
0x01AAED|$06:$AADD:20 0C AB	JSR $AB0C  	; display filled slots selection menu, set A/$75DB to selected slot
0x01AAF0|$06:$AAE0:20 FC AA	JSR $AAFC  	; display Menu ID #$43: Game menu: delete selected game and Menu ID #$19: General menu: YES/NO
0x01AAF3|$06:$AAE3:AE DB 75	LDX $75DB  	; in game: current game save slot; out of game: various temporary game menu setup values
0x01AAF6|$06:$AAE6:A9 FE   	LDA #$FE   
0x01AAF8|$06:$AAE8:9D D7 75	STA $75D7,X	; save slot 1 status (write-only?)
; control flow target (from $A965)
0x01AAFB|$06:$AAEB:20 3B AA	JSR $AA3B  	; mark save game slot specified by $75DB as empty
0x01AAFE|$06:$AAEE:A2 72   	LDX #$72   	; fill save game buffer with #$00
0x01AB00|$06:$AAF0:A9 00   	LDA #$00   
; control flow target (from $AAF6)
0x01AB02|$06:$AAF2:9D 00 70	STA $7000,X	; Cannock runaround quest status (0 = start of game, 0 -> 1 = talked to King Cannock, 1 -> 2 = said YES to seeking Cannock in Spring of Bravery, 2 -> 3 = talked to King Midenhall; adding Cannock sets this to 3; some code checks for 4), SRAM buffer
0x01AB05|$06:$AAF5:CA      	DEX        
0x01AB06|$06:$AAF6:10 FA   	BPL $AAF2  
0x01AB08|$06:$AAF8:20 87 AB	JSR $AB87  	; copy data from SRAM buffer to per-game save data
0x01AB0B|$06:$AAFB:60      	RTS        

; display Menu ID #$43: Game menu: delete selected game and Menu ID #$19: General menu: YES/NO
; control flow target (from $AAE0)
0x01AB0C|$06:$AAFC:A9 43   	LDA #$43   	; Menu ID #$43: Game menu: delete selected game
0x01AB0E|$06:$AAFE:20 93 A9	JSR $A993  	; open menu specified by A
0x01AB11|$06:$AB01:A9 19   	LDA #$19   	; Menu ID #$19: General menu: YES/NO
0x01AB13|$06:$AB03:20 93 A9	JSR $A993  	; open menu specified by A
0x01AB16|$06:$AB06:AA      	TAX        
; if NO, pop JSR return address and RTS back to to display and handle main game menu
0x01AB17|$06:$AB07:F0 02   	BEQ $AB0B  
0x01AB19|$06:$AB09:68      	PLA        
0x01AB1A|$06:$AB0A:68      	PLA        
; control flow target (from $AB07)
0x01AB1B|$06:$AB0B:60      	RTS        

; display filled slots selection menu, set A/$75DB to selected slot
; control flow target (from $AA55, $AA64, $AACA, $AADD)
0x01AB1C|$06:$AB0C:A9 00   	LDA #$00   	; get index for filled slots
0x01AB1E|$06:$AB0E:20 32 AB	JSR $AB32  	; set A to offset of appropriate save slot selection menu: A = #$00 gets index for filled slots, A = #$FF gets index for empty slots; also sets $75DB to offset for corresponding current slot lut
0x01AB21|$06:$AB11:69 3C   	ADC #$3C   	; base menu ID
0x01AB23|$06:$AB13:D0 07   	BNE $AB1C  
; display empty slots selection menu, set A/$75DB to selected slot
; control flow target (from $AA98, $AAD0)
0x01AB25|$06:$AB15:A9 FF   	LDA #$FF   	; get index for empty slots
0x01AB27|$06:$AB17:20 32 AB	JSR $AB32  	; set A to offset of appropriate save slot selection menu: A = #$00 gets index for filled slots, A = #$FF gets index for empty slots; also sets $75DB to offset for corresponding current slot lut
0x01AB2A|$06:$AB1A:69 35   	ADC #$35   	; base menu ID
; control flow target (from $AB13)
0x01AB2C|$06:$AB1C:20 93 A9	JSR $A993  	; open menu specified by A
0x01AB2F|$06:$AB1F:C9 FF   	CMP #$FF   
0x01AB31|$06:$AB21:F0 0C   	BEQ $AB2F  	; pop JSR return address and RTS back to to display and handle main game menu
0x01AB33|$06:$AB23:18      	CLC        
0x01AB34|$06:$AB24:6D DB 75	ADC $75DB  	; in game: current game save slot; out of game: various temporary game menu setup values; offset for current slot lookup table
0x01AB37|$06:$AB27:AA      	TAX        
0x01AB38|$06:$AB28:BD C2 AD	LDA $ADC2,X	; lookup table for save game slot based on save game slot selection type + menu selection index
0x01AB3B|$06:$AB2B:8D DB 75	STA $75DB  	; in game: current game save slot; out of game: various temporary game menu setup values
0x01AB3E|$06:$AB2E:60      	RTS        

; pop JSR return address and RTS back to to display and handle main game menu
; control flow target (from $AB21)
0x01AB3F|$06:$AB2F:68      	PLA        
0x01AB40|$06:$AB30:68      	PLA        
0x01AB41|$06:$AB31:60      	RTS        

; set A to offset of appropriate save slot selection menu: A = #$00 gets index for filled slots, A = #$FF gets index for empty slots; also sets $75DB to offset for corresponding current slot lut
; control flow target (from $AB0E, $AB17)
0x01AB42|$06:$AB32:4D DA 75	EOR $75DA  	; bit field for which save game slots are filled
0x01AB45|$06:$AB35:29 07   	AND #$07   	; 3 save slots
0x01AB47|$06:$AB37:AA      	TAX        
0x01AB48|$06:$AB38:CA      	DEX        
0x01AB49|$06:$AB39:8A      	TXA        
0x01AB4A|$06:$AB3A:85 99   	STA $99    
0x01AB4C|$06:$AB3C:0A      	ASL        
0x01AB4D|$06:$AB3D:65 99   	ADC $99    
0x01AB4F|$06:$AB3F:8D DB 75	STA $75DB  	; in game: current game save slot; out of game: various temporary game menu setup values
0x01AB52|$06:$AB42:8A      	TXA        
0x01AB53|$06:$AB43:60      	RTS        

; copy current save game's data to save data buffer at $7000; CLC if data is valid, SEC if it's unrecoverable
; control flow target (from $A93B, $AA58, $AA67, $AACD)
0x01AB54|$06:$AB44:20 90 AB	JSR $AB90  	; set $99-$9A to pointer to current game's save slot, $9B-$9C to pointer to save data buffer at $7000
0x01AB57|$06:$AB47:A2 00   	LDX #$00   	; save data copy number
; control flow target (from $AB7B)
0x01AB59|$06:$AB49:A0 72   	LDY #$72   	; copy #$73 bytes of data from current game's save slot to save data buffer at $7000
; control flow target (from $AB50)
0x01AB5B|$06:$AB4B:B1 99   	LDA ($99),Y
0x01AB5D|$06:$AB4D:91 9B   	STA ($9B),Y
0x01AB5F|$06:$AB4F:88      	DEY        
0x01AB60|$06:$AB50:10 F9   	BPL $AB4B  
0x01AB62|$06:$AB52:98      	TYA        	; save Y and X on the stack
0x01AB63|$06:$AB53:48      	PHA        
0x01AB64|$06:$AB54:8A      	TXA        
0x01AB65|$06:$AB55:48      	PHA        
0x01AB66|$06:$AB56:20 BB AC	JSR $ACBB  	; initialize the RNG based on 71 passes using SRAM data $7000-$7070
0x01AB69|$06:$AB59:68      	PLA        	; restore X and Y from the stack
0x01AB6A|$06:$AB5A:AA      	TAX        
0x01AB6B|$06:$AB5B:68      	PLA        
0x01AB6C|$06:$AB5C:A8      	TAY        
0x01AB6D|$06:$AB5D:AD 71 70	LDA $7071  	; RNG byte 0, SRAM buffer
0x01AB70|$06:$AB60:C5 32   	CMP $32    	; RNG byte 0
0x01AB72|$06:$AB62:D0 07   	BNE $AB6B  	; save data corrupted!
0x01AB74|$06:$AB64:AD 72 70	LDA $7072  	; RNG byte 1, SRAM buffer
0x01AB77|$06:$AB67:C5 33   	CMP $33    	; RNG byte 1
0x01AB79|$06:$AB69:F0 14   	BEQ $AB7F  	; save data valid!
; save data corrupted!
; control flow target (from $AB62)
0x01AB7B|$06:$AB6B:18      	CLC        	; add #$159 (i.e. #$73 * 3) to $99-$9A
0x01AB7C|$06:$AB6C:A9 59   	LDA #$59   
0x01AB7E|$06:$AB6E:65 99   	ADC $99    
0x01AB80|$06:$AB70:85 99   	STA $99    
0x01AB82|$06:$AB72:A9 01   	LDA #$01   
0x01AB84|$06:$AB74:65 9A   	ADC $9A    
0x01AB86|$06:$AB76:85 9A   	STA $9A    
0x01AB88|$06:$AB78:E8      	INX        	; save data copy number
0x01AB89|$06:$AB79:E0 04   	CPX #$04   	; there are 4 copies of save data
0x01AB8B|$06:$AB7B:D0 CC   	BNE $AB49  
0x01AB8D|$06:$AB7D:38      	SEC        	; flag data as unrecoverable :(
0x01AB8E|$06:$AB7E:60      	RTS        

; save data valid!
; control flow target (from $AB69)
0x01AB8F|$06:$AB7F:8A      	TXA        
0x01AB90|$06:$AB80:F0 03   	BEQ $AB85  	; if first save data copy was bad, update all copies with good data
0x01AB92|$06:$AB82:20 AA AB	JSR $ABAA  	; copy save data from save data buffer to current game's save slot, making X copies of the data spaced 3 saves slots away
; control flow target (from $AB80)
0x01AB95|$06:$AB85:18      	CLC        	; flag data as valid
0x01AB96|$06:$AB86:60      	RTS        

; copy data from SRAM buffer to per-game save data
; control flow target (from $A88B, $AA8A, $AAB7, $AAD9, $AAF8)
0x01AB97|$06:$AB87:A2 04   	LDX #$04   	; make 4 copies of save data
0x01AB99|$06:$AB89:20 AA AB	JSR $ABAA  	; copy save data from save data buffer to current game's save slot, making X copies of the data spaced 3 saves slots away
0x01AB9C|$06:$AB8C:20 02 AA	JSR $AA02  	; copy more data to second part of per-game save data
0x01AB9F|$06:$AB8F:60      	RTS        

; set $99-$9A to pointer to current game's save slot, $9B-$9C to pointer to save data buffer at $7000
; control flow target (from $AB44, $ABAA)
0x01ABA0|$06:$AB90:AD DB 75	LDA $75DB  	; in game: current game save slot; out of game: various temporary game menu setup values
0x01ABA3|$06:$AB93:0A      	ASL        
0x01ABA4|$06:$AB94:A8      	TAY        
0x01ABA5|$06:$AB95:B9 EE AD	LDA $ADEE,Y	; pointers to start of per-game save data
0x01ABA8|$06:$AB98:85 99   	STA $99    
0x01ABAA|$06:$AB9A:B9 EF AD	LDA $ADEF,Y
0x01ABAD|$06:$AB9D:85 9A   	STA $9A    
0x01ABAF|$06:$AB9F:AD EC AD	LDA $ADEC  	; pointer to start of current game save data buffer
0x01ABB2|$06:$ABA2:85 9B   	STA $9B    
0x01ABB4|$06:$ABA4:AD ED AD	LDA $ADED  
0x01ABB7|$06:$ABA7:85 9C   	STA $9C    
0x01ABB9|$06:$ABA9:60      	RTS        

; copy save data from save data buffer to current game's save slot, making X copies of the data spaced 3 saves slots away
; control flow target (from $AB82, $AB89)
0x01ABBA|$06:$ABAA:20 90 AB	JSR $AB90  	; set $99-$9A to pointer to current game's save slot, $9B-$9C to pointer to save data buffer at $7000
; control flow target (from $ABC4)
0x01ABBD|$06:$ABAD:A0 72   	LDY #$72   
; control flow target (from $ABB4)
0x01ABBF|$06:$ABAF:B1 9B   	LDA ($9B),Y
0x01ABC1|$06:$ABB1:91 99   	STA ($99),Y
0x01ABC3|$06:$ABB3:88      	DEY        
0x01ABC4|$06:$ABB4:10 F9   	BPL $ABAF  
0x01ABC6|$06:$ABB6:18      	CLC        	; add #$72 * 3 = #$0159 to write address $99-$9A
0x01ABC7|$06:$ABB7:A9 59   	LDA #$59   
0x01ABC9|$06:$ABB9:65 99   	ADC $99    
0x01ABCB|$06:$ABBB:85 99   	STA $99    
0x01ABCD|$06:$ABBD:A9 01   	LDA #$01   
0x01ABCF|$06:$ABBF:65 9A   	ADC $9A    
0x01ABD1|$06:$ABC1:85 9A   	STA $9A    
0x01ABD3|$06:$ABC3:CA      	DEX        
0x01ABD4|$06:$ABC4:D0 E7   	BNE $ABAD  	; make X copies of the save data
0x01ABD6|$06:$ABC6:60      	RTS        

; copy save data from save data buffer at $7000 to system RAM; update Don Mahone quest status if applicable
; from $0F:$C6F9 via $8006
; control flow target (from $AA5B)
; indirect control flow target (via $8006)
0x01ABD7|$06:$ABC7:AD 00 70	LDA $7000  	; Cannock runaround quest status (0 = start of game, 0 -> 1 = talked to King Cannock, 1 -> 2 = said YES to seeking Cannock in Spring of Bravery, 2 -> 3 = talked to King Midenhall; adding Cannock sets this to 3; some code checks for 4), SRAM buffer
0x01ABDA|$06:$ABCA:85 CA   	STA $CA    	; Cannock runaround quest status (0 = start of game, 0 -> 1 = talked to King Cannock, 1 -> 2 = said YES to seeking Cannock in Spring of Bravery, 2 -> 3 = talked to King Midenhall; adding Cannock sets this to 3; some code checks for 4)
0x01ABDC|$06:$ABCC:AD 01 70	LDA $7001  	; Don Mahone quest status (#$00 = not started, #$01 = ingredients delivered, #$03 = game loaded after ingredients delivered), SRAM buffer
0x01ABDF|$06:$ABCF:F0 02   	BEQ $ABD3  
0x01ABE1|$06:$ABD1:A9 03   	LDA #$03   
; control flow target (from $ABCF)
0x01ABE3|$06:$ABD3:85 CD   	STA $CD    	; Don Mahone quest status (#$00 = not started, #$01 = ingredients delivered, #$03 = game loaded after ingredients delivered)
0x01ABE5|$06:$ABD5:AD 02 70	LDA $7002  	; Tuhn Watergate open flag (#$00 = closed, #$01 = open), SRAM buffer
0x01ABE8|$06:$ABD8:85 CE   	STA $CE    	; Tuhn Watergate open flag (#$00 = closed, #$01 = open)
0x01ABEA|$06:$ABDA:AD 03 70	LDA $7003  	; ship status (#$04 = on ship, #$02 = own ship, #$01 = beat Lianport Gremlins)
0x01ABED|$06:$ABDD:85 CF   	STA $CF    	; ship status (#$04 = on ship, #$02 = own ship, #$01 = beat Lianport Gremlins)
0x01ABEF|$06:$ABDF:AD 04 70	LDA $7004  	; Sea Cave shoal status (#$00 = shoals up, others = shoals down), SRAM buffer
0x01ABF2|$06:$ABE2:8D F8 05	STA $05F8  	; Sea Cave shoal status (#$00 = shoals up, others = shoals down)
0x01ABF5|$06:$ABE5:AD 05 70	LDA $7005  	; Crests found bit field, SRAM buffer
0x01ABF8|$06:$ABE8:8D 12 01	STA $0112  	; Crests found bit field (#$10 = Life, #$80 = Water, #$04 = Moon, #$02 = Stars, #$01 = Sun)
0x01ABFB|$06:$ABEB:AD 06 70	LDA $7006  	; last save point ID, SRAM buffer
0x01ABFE|$06:$ABEE:8D 48 00	STA $0048  	; last save point ID
0x01AC01|$06:$ABF1:AD 07 70	LDA $7007  	; party gold, low byte, SRAM buffer
0x01AC04|$06:$ABF4:8D 24 06	STA $0624  	; party gold, low byte
0x01AC07|$06:$ABF7:AD 08 70	LDA $7008  	; party gold, high byte, SRAM buffer
0x01AC0A|$06:$ABFA:8D 25 06	STA $0625  	; party gold, high byte
0x01AC0D|$06:$ABFD:A2 35   	LDX #$35   
; control flow target (from $AC06)
0x01AC0F|$06:$ABFF:BD 15 70	LDA $7015,X	; hero data from $062D, SRAM buffer
0x01AC12|$06:$AC02:9D 2D 06	STA $062D,X	; Midenhall status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence)
0x01AC15|$06:$AC05:CA      	DEX        
0x01AC16|$06:$AC06:10 F7   	BPL $ABFF  
0x01AC18|$06:$AC08:A2 17   	LDX #$17   
; control flow target (from $AC11)
0x01AC1A|$06:$AC0A:BD 4B 70	LDA $704B,X	; party inventory, SRAM buffer
0x01AC1D|$06:$AC0D:9D 00 06	STA $0600,X	; Midenhall inventory item 1 (| #$40 if equipped)
0x01AC20|$06:$AC10:CA      	DEX        
0x01AC21|$06:$AC11:10 F7   	BPL $AC0A  
0x01AC23|$06:$AC13:A2 03   	LDX #$03   
; control flow target (from $AC28)
0x01AC25|$06:$AC15:BD 09 70	LDA $7009,X	; Midenhall name bytes 0-3, SRAM buffer
0x01AC28|$06:$AC18:9D 13 01	STA $0113,X	; Midenhall name bytes 0-3 + terminator
0x01AC2B|$06:$AC1B:BD 0D 70	LDA $700D,X	; Cannock name bytes 0-3, SRAM buffer
0x01AC2E|$06:$AC1E:9D 18 01	STA $0118,X	; Cannock name bytes 0-3 + terminator
0x01AC31|$06:$AC21:BD 11 70	LDA $7011,X	; Moonbrooke name bytes 0-3, SRAM buffer
0x01AC34|$06:$AC24:9D 1D 01	STA $011D,X	; Moonbrooke name bytes 0-3 + terminator
0x01AC37|$06:$AC27:CA      	DEX        
0x01AC38|$06:$AC28:10 EB   	BPL $AC15  
0x01AC3A|$06:$AC2A:A2 0B   	LDX #$0B   
; control flow target (from $AC33)
0x01AC3C|$06:$AC2C:BD 63 70	LDA $7063,X	; party names, bytes 4-7, SRAM buffer
0x01AC3F|$06:$AC2F:9D 86 01	STA $0186,X	; Midenhall name bytes 4-7
0x01AC42|$06:$AC32:CA      	DEX        
0x01AC43|$06:$AC33:10 F7   	BPL $AC2C  
0x01AC45|$06:$AC35:AD 6F 70	LDA $706F  	; current battle message delay, SRAM buffer
0x01AC48|$06:$AC38:8D 2C 06	STA $062C  	; current battle message delay
0x01AC4B|$06:$AC3B:60      	RTS        

; copy save data from system RAM to $7000-$706F
; control flow target (from $A885)
0x01AC4C|$06:$AC3C:A5 CA   	LDA $CA    	; Cannock runaround quest status (0 = start of game, 0 -> 1 = talked to King Cannock, 1 -> 2 = said YES to seeking Cannock in Spring of Bravery, 2 -> 3 = talked to King Midenhall; adding Cannock sets this to 3; some code checks for 4)
0x01AC4E|$06:$AC3E:8D 00 70	STA $7000  	; Cannock runaround quest status (0 = start of game, 0 -> 1 = talked to King Cannock, 1 -> 2 = said YES to seeking Cannock in Spring of Bravery, 2 -> 3 = talked to King Midenhall; adding Cannock sets this to 3; some code checks for 4), SRAM buffer
0x01AC51|$06:$AC41:A5 CD   	LDA $CD    	; Don Mahone quest status (#$00 = not started, #$01 = ingredients delivered, #$03 = game loaded after ingredients delivered)
0x01AC53|$06:$AC43:8D 01 70	STA $7001  	; Don Mahone quest status (#$00 = not started, #$01 = ingredients delivered, #$03 = game loaded after ingredients delivered), SRAM buffer
0x01AC56|$06:$AC46:A5 CE   	LDA $CE    	; Tuhn Watergate open flag (#$00 = closed, #$01 = open)
0x01AC58|$06:$AC48:8D 02 70	STA $7002  	; Tuhn Watergate open flag (#$00 = closed, #$01 = open), SRAM buffer
0x01AC5B|$06:$AC4B:A5 CF   	LDA $CF    	; ship status (#$04 = on ship, #$02 = own ship, #$01 = beat Lianport Gremlins)
0x01AC5D|$06:$AC4D:8D 03 70	STA $7003  	; ship status (#$04 = on ship, #$02 = own ship, #$01 = beat Lianport Gremlins)
0x01AC60|$06:$AC50:AD F8 05	LDA $05F8  	; Sea Cave shoal status (#$00 = shoals up, others = shoals down)
0x01AC63|$06:$AC53:8D 04 70	STA $7004  	; Sea Cave shoal status (#$00 = shoals up, others = shoals down), SRAM buffer
0x01AC66|$06:$AC56:AD 12 01	LDA $0112  	; Crests found bit field (#$10 = Life, #$80 = Water, #$04 = Moon, #$02 = Stars, #$01 = Sun)
0x01AC69|$06:$AC59:8D 05 70	STA $7005  	; Crests found bit field, SRAM buffer
0x01AC6C|$06:$AC5C:AD 48 00	LDA $0048  	; last save point ID
0x01AC6F|$06:$AC5F:8D 06 70	STA $7006  	; last save point ID, SRAM buffer
0x01AC72|$06:$AC62:AD 24 06	LDA $0624  	; party gold, low byte
0x01AC75|$06:$AC65:8D 07 70	STA $7007  	; party gold, low byte, SRAM buffer
0x01AC78|$06:$AC68:AD 25 06	LDA $0625  	; party gold, high byte
0x01AC7B|$06:$AC6B:8D 08 70	STA $7008  	; party gold, high byte, SRAM buffer
0x01AC7E|$06:$AC6E:A2 35   	LDX #$35   
; control flow target (from $AC77)
0x01AC80|$06:$AC70:BD 2D 06	LDA $062D,X	; Midenhall status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence)
0x01AC83|$06:$AC73:9D 15 70	STA $7015,X	; hero data from $062D, SRAM buffer
0x01AC86|$06:$AC76:CA      	DEX        
0x01AC87|$06:$AC77:10 F7   	BPL $AC70  
0x01AC89|$06:$AC79:A2 17   	LDX #$17   
; control flow target (from $AC82)
0x01AC8B|$06:$AC7B:BD 00 06	LDA $0600,X	; Midenhall inventory item 1 (| #$40 if equipped)
0x01AC8E|$06:$AC7E:9D 4B 70	STA $704B,X	; party inventory, SRAM buffer
0x01AC91|$06:$AC81:CA      	DEX        
0x01AC92|$06:$AC82:10 F7   	BPL $AC7B  
0x01AC94|$06:$AC84:A2 03   	LDX #$03   
; control flow target (from $AC99)
0x01AC96|$06:$AC86:BD 13 01	LDA $0113,X	; Midenhall name bytes 0-3 + terminator
0x01AC99|$06:$AC89:9D 09 70	STA $7009,X	; Midenhall name bytes 0-3, SRAM buffer
0x01AC9C|$06:$AC8C:BD 18 01	LDA $0118,X	; Cannock name bytes 0-3 + terminator
0x01AC9F|$06:$AC8F:9D 0D 70	STA $700D,X	; Cannock name bytes 0-3, SRAM buffer
0x01ACA2|$06:$AC92:BD 1D 01	LDA $011D,X	; Moonbrooke name bytes 0-3 + terminator
0x01ACA5|$06:$AC95:9D 11 70	STA $7011,X	; Moonbrooke name bytes 0-3, SRAM buffer
0x01ACA8|$06:$AC98:CA      	DEX        
0x01ACA9|$06:$AC99:10 EB   	BPL $AC86  
0x01ACAB|$06:$AC9B:A2 0B   	LDX #$0B   
; control flow target (from $ACA4)
0x01ACAD|$06:$AC9D:BD 86 01	LDA $0186,X	; Midenhall name bytes 4-7
0x01ACB0|$06:$ACA0:9D 63 70	STA $7063,X	; party names, bytes 4-7, SRAM buffer
0x01ACB3|$06:$ACA3:CA      	DEX        
0x01ACB4|$06:$ACA4:10 F7   	BPL $AC9D  
0x01ACB6|$06:$ACA6:AD 2C 06	LDA $062C  	; current battle message delay
0x01ACB9|$06:$ACA9:8D 6F 70	STA $706F  	; current battle message delay, SRAM buffer
0x01ACBC|$06:$ACAC:60      	RTS        

; initialize the RNG based on 71 passes using SRAM data $7000-$7070 and save resulting seed to $7071-$7072
; control flow target (from $A888, $AA87, $AAB4)
0x01ACBD|$06:$ACAD:20 BB AC	JSR $ACBB  	; initialize the RNG based on 71 passes using SRAM data $7000-$7070
0x01ACC0|$06:$ACB0:A5 32   	LDA $32    	; RNG byte 0
0x01ACC2|$06:$ACB2:8D 71 70	STA $7071  	; RNG byte 0, SRAM buffer
0x01ACC5|$06:$ACB5:A5 33   	LDA $33    	; RNG byte 1
0x01ACC7|$06:$ACB7:8D 72 70	STA $7072  	; RNG byte 1, SRAM buffer
0x01ACCA|$06:$ACBA:60      	RTS        

; initialize the RNG based on 71 passes using SRAM data $7000-$7070
; control flow target (from $AB56, $ACAD)
0x01ACCB|$06:$ACBB:A2 70   	LDX #$70   
0x01ACCD|$06:$ACBD:86 32   	STX $32    	; RNG byte 0
0x01ACCF|$06:$ACBF:86 33   	STX $33    	; RNG byte 1
; control flow target (from $ACCA)
0x01ACD1|$06:$ACC1:BD 00 70	LDA $7000,X	; Cannock runaround quest status (0 = start of game, 0 -> 1 = talked to King Cannock, 1 -> 2 = said YES to seeking Cannock in Spring of Bravery, 2 -> 3 = talked to King Midenhall; adding Cannock sets this to 3; some code checks for 4), SRAM buffer
0x01ACD4|$06:$ACC4:85 0C   	STA $0C    
; call to code in a different bank ($0F:$C3B6)
0x01ACD6|$06:$ACC6:20 B6 C3	JSR $C3B6  	; generate a random number and store it in $32-$33 (one pass)
0x01ACD9|$06:$ACC9:CA      	DEX        
0x01ACDA|$06:$ACCA:10 F5   	BPL $ACC1  
0x01ACDC|$06:$ACCC:60      	RTS        

; control flow target (from $AA9B)
0x01ACDD|$06:$ACCD:20 86 AE	JSR $AE86  
0x01ACE0|$06:$ACD0:A2 03   	LDX #$03   
; save Midenhall's name
; control flow target (from $ACE5)
0x01ACE2|$06:$ACD2:BD 04 01	LDA $0104,X
0x01ACE5|$06:$ACD5:9D 63 70	STA $7063,X	; party names, bytes 4-7, SRAM buffer
0x01ACE8|$06:$ACD8:9D 86 01	STA $0186,X	; Midenhall name bytes 4-7
0x01ACEB|$06:$ACDB:BD 00 01	LDA $0100,X	; string copy buffer start (often referenced as $00FF,X)
0x01ACEE|$06:$ACDE:9D 09 70	STA $7009,X	; Midenhall name bytes 0-3, SRAM buffer
0x01ACF1|$06:$ACE1:9D 13 01	STA $0113,X	; Midenhall name bytes 0-3 + terminator
0x01ACF4|$06:$ACE4:CA      	DEX        
0x01ACF5|$06:$ACE5:10 EB   	BPL $ACD2  
0x01ACF7|$06:$ACE7:20 EB AC	JSR $ACEB  	; generate and save Cannock/Moonbrooke's names
0x01ACFA|$06:$ACEA:60      	RTS        

; generate and save Cannock/Moonbrooke's names
; control flow target (from $ACE7)
0x01ACFB|$06:$ACEB:A9 00   	LDA #$00   
0x01ACFD|$06:$ACED:A2 03   	LDX #$03   
0x01ACFF|$06:$ACEF:18      	CLC        
; control flow target (from $ACF7)
0x01AD00|$06:$ACF0:7D 09 70	ADC $7009,X	; Midenhall name bytes 0-3, SRAM buffer; first 4 characters of Midenhall's name
0x01AD03|$06:$ACF3:7D 63 70	ADC $7063,X	; party names, bytes 4-7, SRAM buffer; last 4 characters of Midenhall's name
0x01AD06|$06:$ACF6:CA      	DEX        
0x01AD07|$06:$ACF7:10 F7   	BPL $ACF0  
0x01AD09|$06:$ACF9:48      	PHA        
0x01AD0A|$06:$ACFA:29 07   	AND #$07   	; Cannock's name is based on bits 0-2 of the sum of Midenhall's name
0x01AD0C|$06:$ACFC:0A      	ASL        	; << 3 since names are 8 bytes long
0x01AD0D|$06:$ACFD:0A      	ASL        
0x01AD0E|$06:$ACFE:0A      	ASL        
0x01AD0F|$06:$ACFF:AA      	TAX        
0x01AD10|$06:$AD00:A0 00   	LDY #$00   
; save Cannock's name
; control flow target (from $AD18)
0x01AD12|$06:$AD02:BD 39 AD	LDA $AD39,X	; Prince of Cannock Names, first 4 bytes; pointer to list of Cannock names, starting at 0th byte
0x01AD15|$06:$AD05:99 0D 70	STA $700D,Y	; Cannock name bytes 0-3, SRAM buffer; store the first 4 characters in SRAM
0x01AD18|$06:$AD08:99 18 01	STA $0118,Y	; Cannock name bytes 0-3 + terminator; store the first 4 characters in RAM
0x01AD1B|$06:$AD0B:BD 3D AD	LDA $AD3D,X	; Prince of Cannock Names, last 4 bytes; pointer to list of Cannock names, starting at 4th byte
0x01AD1E|$06:$AD0E:99 67 70	STA $7067,Y	; store the last 4 characters in SRAM
0x01AD21|$06:$AD11:99 8A 01	STA $018A,Y	; Cannock name bytes 4-7; store the last 4 characters in RAM
0x01AD24|$06:$AD14:E8      	INX        
0x01AD25|$06:$AD15:C8      	INY        
0x01AD26|$06:$AD16:C0 04   	CPY #$04   
0x01AD28|$06:$AD18:D0 E8   	BNE $AD02  
0x01AD2A|$06:$AD1A:68      	PLA        
0x01AD2B|$06:$AD1B:29 38   	AND #$38   	; Moonbrooke's name is based on bits 3-6 of the sum of Midenhall's name
0x01AD2D|$06:$AD1D:AA      	TAX        
0x01AD2E|$06:$AD1E:A0 00   	LDY #$00   
; save Moonbrooke's name
; control flow target (from $AD36)
0x01AD30|$06:$AD20:BD 79 AD	LDA $AD79,X	; Princess of Moonbrooke Names, first 4 bytes; pointer to list of Moonbrooke names, starting at 0th byte
0x01AD33|$06:$AD23:99 11 70	STA $7011,Y	; Moonbrooke name bytes 0-3, SRAM buffer; store the first 4 characters in SRAM
0x01AD36|$06:$AD26:99 1D 01	STA $011D,Y	; Moonbrooke name bytes 0-3 + terminator; store the first 4 characters in RAM
0x01AD39|$06:$AD29:BD 7D AD	LDA $AD7D,X	; Princess of Moonbrooke Names, last 4 bytes; pointer to list of Moonbrooke names, starting at 0th byte
0x01AD3C|$06:$AD2C:99 6B 70	STA $706B,Y	; store the last 4 characters in SRAM
0x01AD3F|$06:$AD2F:99 8E 01	STA $018E,Y	; Moonbrooke name bytes 4-7; store the last 4 characters in RAM
0x01AD42|$06:$AD32:E8      	INX        
0x01AD43|$06:$AD33:C8      	INY        
0x01AD44|$06:$AD34:C0 04   	CPY #$04   
0x01AD46|$06:$AD36:D0 E8   	BNE $AD20  
0x01AD48|$06:$AD38:60      	RTS        


; code -> data
; Prince of Cannock Names, first 4 bytes
; indexed data load target (from $AD02)
0x01AD49|$06:$AD39:25 1B 0A 17
; Prince of Cannock Names, last 4 bytes
; indexed data load target (from $AD0B)
0x01AD4D|$06:$AD3D:            5F 5F 5F 5F	; "Bran    "
0x01AD51|$06:$AD41:2A 15 22 17 17 5F 5F 5F	; "Glynn   "
0x01AD59|$06:$AD49:37 0A 15 12 17 1D 5F 5F	; "Talint  "
0x01AD61|$06:$AD51:31 1E 16 18 1B 5F 5F 5F	; "Numor   "
0x01AD69|$06:$AD59:2F 0A 1B 1C 5F 5F 5F 5F	; "Lars    "
0x01AD71|$06:$AD61:32 1B 0F 0E 18 5F 5F 5F	; "Orfeo   "
0x01AD79|$06:$AD69:24 1B 1D 11 18 5F 5F 5F	; "Artho   "
0x01AD81|$06:$AD71:28 1C 10 0A 1B 5F 5F 5F	; "Esgar   "
; Princess of Moonbrooke Names, first 4 bytes
; indexed data load target (from $AD20)
0x01AD89|$06:$AD79:39 0A 1B 12
; Princess of Moonbrooke Names, last 4 bytes
; indexed data load target (from $AD29)
0x01AD8D|$06:$AD7D:            0A 5F 5F 5F	; "Varia   "
0x01AD91|$06:$AD81:28 15 0A 17 12 5F 5F 5F	; "Elani   "
0x01AD99|$06:$AD89:32 15 15 12 1C 0A 5F 5F	; "Ollisa  "
0x01ADA1|$06:$AD91:35 18 23 5F 5F 5F 5F 5F	; "Roz     "
0x01ADA9|$06:$AD99:2E 0A 12 15 12 17 5F 5F	; "Kailin  "
0x01ADB1|$06:$ADA1:33 0E 1D 0A 5F 5F 5F 5F	; "Peta    "
0x01ADB9|$06:$ADA9:2C 15 15 22 1D 11 5F 5F	; "Illyth  "
0x01ADC1|$06:$ADB1:2A 20 0E 17 5F 5F 5F 5F	; "Gwen    "
; indexed data load target (from $A8CC, $A91B)
0x01ADC9|$06:$ADB9:44 51 32 55 53 41
; battle message delays (frames between prints; higher = slower)
; indexed data load target (from $AA7E)
0x01ADCF|$06:$ADBF:28	; 40 frames
0x01ADD0|$06:$ADC0:46	; 70 frames
0x01ADD1|$06:$ADC1:FF	; 255 frames
; lookup table for save game slot based on save game slot selection type + menu selection index
; only slot 0
; indexed data load target (from $AB28)
0x01ADD2|$06:$ADC2:00	; slot 0
0x01ADD3|$06:$ADC3:00	; (impossible)
0x01ADD4|$06:$ADC4:00	; (impossible)
; only slot 1
0x01ADD5|$06:$ADC5:01	; slot 1
0x01ADD6|$06:$ADC6:00	; (impossible)
0x01ADD7|$06:$ADC7:00	; (impossible)
; slots 0 and 1
0x01ADD8|$06:$ADC8:00	; slot 0
0x01ADD9|$06:$ADC9:01	; slot 1
0x01ADDA|$06:$ADCA:00	; (impossible)
; only slot 2
0x01ADDB|$06:$ADCB:02	; slot 2
0x01ADDC|$06:$ADCC:00	; (impossible)
0x01ADDD|$06:$ADCD:00	; (impossible)
; slots 0 and 2
0x01ADDE|$06:$ADCE:00	; slot 0
0x01ADDF|$06:$ADCF:02	; slot 2
0x01ADE0|$06:$ADD0:00	; (impossible)
; slots 1 and 2
0x01ADE1|$06:$ADD1:01	; slot 1
0x01ADE2|$06:$ADD2:02	; slot 2
0x01ADE3|$06:$ADD3:00	; (impossible)
; all 3 slots
0x01ADE4|$06:$ADD4:00	; slot 0
0x01ADE5|$06:$ADD5:01	; slot 1
0x01ADE6|$06:$ADD6:02	; slot 2
; index into jump table at $ADE2
; indexed data load target (from $A9D4)
0x01ADE7|$06:$ADD7:00	; CONTINUE A QUEST
0x01ADE8|$06:$ADD8:01	; CHANGE MESSAGE SPEED
0x01ADE9|$06:$ADD9:04	; ERASE A QUEST
0x01ADEA|$06:$ADDA:00	; (impossible)
0x01ADEB|$06:$ADDB:00	; (impossible)
0x01ADEC|$06:$ADDC:00	; CONTINUE A QUEST
0x01ADED|$06:$ADDD:01	; CHANGE MESSAGE SPEED
0x01ADEE|$06:$ADDE:02	; BEGIN A NEW QUEST
0x01ADEF|$06:$ADDF:03	; COPY A QUEST
0x01ADF0|$06:$ADE0:04	; ERASE A QUEST
0x01ADF1|$06:$ADE1:02	; BEGIN A NEW QUEST
; jump table for main game menu handlers
; indexed data load target (from $A9D9)
0x01ADF2|$06:$ADE2:55
; indexed data load target (from $A9DE)
0x01ADF3|$06:$ADE3:   AA	; $06:$AA55; CONTINUE A QUEST handler
0x01ADF4|$06:$ADE4:64 AA	; $06:$AA64; CHANGE MESSAGE SPEED handler
0x01ADF6|$06:$ADE6:93 AA	; $06:$AA93; BEGIN A NEW QUEST handler
0x01ADF8|$06:$ADE8:CA AA	; $06:$AACA; COPY A QUEST handler
0x01ADFA|$06:$ADEA:DD AA	; $06:$AADD; ERASE A QUEST handler
; pointer to start of current game save data buffer
; data load target (from $AB9F)
0x01ADFC|$06:$ADEC:00
; data load target (from $ABA4)
0x01ADFD|$06:$ADED:   70	; $7000; Cannock runaround quest status (0 = start of game, 0 -> 1 = talked to King Cannock, 1 -> 2 = said YES to seeking Cannock in Spring of Bravery, 2 -> 3 = talked to King Midenhall; adding Cannock sets this to 3; some code checks for 4), SRAM buffer
; pointers to start of per-game save data
; indexed data load target (from $AB95)
0x01ADFE|$06:$ADEE:73
; indexed data load target (from $AB9A)
0x01ADFF|$06:$ADEF:   70	; $7073; start of save game 1 backup #1
0x01AE00|$06:$ADF0:E6 70	; $70E6; start of save game 1 backup #2
0x01AE02|$06:$ADF2:59 71	; $7159; start of save game 1 backup #3
; data load target (from $A8E3)
0x01AE04|$06:$ADF4:64
; data load target (from $A8E9)
0x01AE05|$06:$ADF5:   75	; $7564
; indexed data load target (from $A9F7)
0x01AE06|$06:$ADF6:DC
; indexed data load target (from $A9FC)
0x01AE07|$06:$ADF7:   75	; $75DC
0x01AE08|$06:$ADF8:E6 75	; $75E6
0x01AE0A|$06:$ADFA:F0 75	; $75F0

; data -> code
; given a selected list index in A, an item type in X, and a hero ID in $4A, set A to the A'th item of type X in hero $4A's inventory
; from $0F:$F4E6, $0F:$F5E4, $0F:$F614 via $8010
; indirect control flow target (via $8010)
0x01AE0C|$06:$ADFC:C9 FE   	CMP #$FE   
0x01AE0E|$06:$ADFE:B0 2F   	BCS $AE2F  	; A >= #$FE => just RTS
0x01AE10|$06:$AE00:8E 9D 60	STX $609D  	; menu function parameter
0x01AE13|$06:$AE03:85 10   	STA $10    	; selected item index
; call to code in a different bank ($0F:$F1B0)
0x01AE15|$06:$AE05:20 B0 F1	JSR $F1B0  	; given a hero ID in $4A, set A and X to hero ID * 8, a.k.a. offset for start of hero's inventory
0x01AE18|$06:$AE08:A0 08   	LDY #$08   
0x01AE1A|$06:$AE0A:8C AA 60	STY $60AA  	; menu format (#$80 = has cursor, #$40 = is linked, #$20 = is single spaced, #$02 = only display equipped items, #$01 = display [left border, equipped] if equipped)
; control flow target (from $AE1E)
0x01AE1D|$06:$AE0D:BD 00 06	LDA $0600,X	; Midenhall inventory item 1 (| #$40 if equipped)
; call to code in a different bank ($0F:$F1D6)
0x01AE20|$06:$AE10:20 D6 F1	JSR $F1D6  	; determine item type (#$00 = weapon, #$01 = armour, #$02 = shield, #$03 = helmet, #$04 = menu function wants all items or item is non-equipment, #$05 = menu format wants equipped items only and item not equipped)
0x01AE23|$06:$AE13:CD 9D 60	CMP $609D  	; menu function parameter
0x01AE26|$06:$AE16:D0 04   	BNE $AE1C  	; if it's not the right type of item, it doesn't count
0x01AE28|$06:$AE18:C6 10   	DEC $10    	; otherwise it does!
0x01AE2A|$06:$AE1A:30 08   	BMI $AE24  	; branch if we've found the right item
; control flow target (from $AE16)
0x01AE2C|$06:$AE1C:E8      	INX        	; increment inventory index
0x01AE2D|$06:$AE1D:88      	DEY        	; decrement inventory counter
0x01AE2E|$06:$AE1E:D0 ED   	BNE $AE0D  	; if more inventory slots to check, check them
0x01AE30|$06:$AE20:A9 00   	LDA #$00   	; if item not found, set A = X = #$00
0x01AE32|$06:$AE22:AA      	TAX        
0x01AE33|$06:$AE23:60      	RTS        

; control flow target (from $AE1A)
0x01AE34|$06:$AE24:BD 00 06	LDA $0600,X	; Midenhall inventory item 1 (| #$40 if equipped)
0x01AE37|$06:$AE27:48      	PHA        
0x01AE38|$06:$AE28:8A      	TXA        	; X = X mod 8
0x01AE39|$06:$AE29:29 07   	AND #$07   
0x01AE3B|$06:$AE2B:AA      	TAX        
0x01AE3C|$06:$AE2C:68      	PLA        
0x01AE3D|$06:$AE2D:29 3F   	AND #$3F   	; strip off the equipped bit
; control flow target (from $ADFE)
0x01AE3F|$06:$AE2F:60      	RTS        

; given hero ID - 1 in $4A and field spell menu selection index in A, return spell ID in A
; from $0F:$F5FA via $8012
; indirect control flow target (via $8012)
0x01AE40|$06:$AE30:06 4A   	ASL $4A    	; convert hero ID - 1 to spell list start index; 8 spells per hero
0x01AE42|$06:$AE32:06 4A   	ASL $4A    
0x01AE44|$06:$AE34:06 4A   	ASL $4A    
; add list start offset to spell menu selection index
0x01AE46|$06:$AE36:65 4A   	ADC $4A    
0x01AE48|$06:$AE38:AA      	TAX        
0x01AE49|$06:$AE39:BD 66 AE	LDA $AE66,X	; Cannock field spell list
0x01AE4C|$06:$AE3C:60      	RTS        

; given hero ID - 1 in $4A and battle spell menu selection index in A, return spell ID in A
; from $0F:$F4AC via $8014
; indirect control flow target (via $8014)
0x01AE4D|$06:$AE3D:06 4A   	ASL $4A    	; convert hero ID - 1 to spell list start index; 8 spells per hero
0x01AE4F|$06:$AE3F:06 4A   	ASL $4A    
0x01AE51|$06:$AE41:06 4A   	ASL $4A    
; add list start offset to spell menu selection index
0x01AE53|$06:$AE43:65 4A   	ADC $4A    
0x01AE55|$06:$AE45:AA      	TAX        
0x01AE56|$06:$AE46:BD 76 AE	LDA $AE76,X	; Cannock battle spell list
0x01AE59|$06:$AE49:60      	RTS        

; given spell ID in A, set A to spell name index
; from $02:$BEA4 via $8020
; indirect control flow target (via $8020)
0x01AE5A|$06:$AE4A:AA      	TAX        
0x01AE5B|$06:$AE4B:BD 4E AE	LDA $AE4E,X
; indexed data load target (from $AE4B)
0x01AE5E|$06:$AE4E:60      	RTS        


; code -> data
; spell ID -> spell name index (built in offset from $AE4F)
0x01AE5F|$06:$AE4F:00	; Spell ID #$00: (no spell)
0x01AE60|$06:$AE50:10	; Spell ID #$01: Firebal
0x01AE61|$06:$AE51:04	; Spell ID #$02: Sleep
0x01AE62|$06:$AE52:06	; Spell ID #$03: Firebane
0x01AE63|$06:$AE53:12	; Spell ID #$04: Defeat
0x01AE64|$06:$AE54:02	; Spell ID #$05: Infernos
0x01AE65|$06:$AE55:14	; Spell ID #$06: Stopspell
0x01AE66|$06:$AE56:13	; Spell ID #$07: Surround
0x01AE67|$06:$AE57:08	; Spell ID #$08: Defence
0x01AE68|$06:$AE58:05	; Spell ID #$09: Heal
0x01AE69|$06:$AE59:18	; Spell ID #$0A: Increase
0x01AE6A|$06:$AE5A:07	; Spell ID #$0B: Healmore
0x01AE6B|$06:$AE5B:1B	; Spell ID #$0C: Sacrifice
0x01AE6C|$06:$AE5C:16	; Spell ID #$0D: Healall
0x01AE6D|$06:$AE5D:17	; Spell ID #$0E: Explodet
0x01AE6E|$06:$AE5E:1A	; Spell ID #$0F: Chance
0x01AE6F|$06:$AE5F:08	; Spell ID #$10: Antidote
0x01AE70|$06:$AE60:1C	; Spell ID #$11: Heal (not used by heroes)
0x01AE71|$06:$AE61:19	; Spell ID #$12: Outside
0x01AE72|$06:$AE62:0A	; Spell ID #$13: Repel
0x01AE73|$06:$AE63:1E	; Spell ID #$14: Return
0x01AE74|$06:$AE64:0D	; Spell ID #$15: Open
0x01AE75|$06:$AE65:0E
; Cannock field spell list
; indexed data load target (from $AE39)
0x01AE76|$06:$AE66:09	; Spell ID #$09: Heal
0x01AE77|$06:$AE67:10	; Spell ID #$10: Antidote
0x01AE78|$06:$AE68:14	; Spell ID #$14: Return
0x01AE79|$06:$AE69:12	; Spell ID #$12: Outside
0x01AE7A|$06:$AE6A:0B	; Spell ID #$0B: Healmore
0x01AE7B|$06:$AE6B:16	; Spell ID #$16: Stepguard
0x01AE7C|$06:$AE6C:17	; Spell ID #$17: Revive
0x01AE7D|$06:$AE6D:00	; Spell ID #$00: (no spell)
; Moonbrooke field spell list
0x01AE7E|$06:$AE6E:0B	; Spell ID #$0B: Healmore
0x01AE7F|$06:$AE6F:13	; Spell ID #$13: Repel
0x01AE80|$06:$AE70:10	; Spell ID #$10: Antidote
0x01AE81|$06:$AE71:0D	; Spell ID #$0D: Healall
0x01AE82|$06:$AE72:12	; Spell ID #$12: Outside
0x01AE83|$06:$AE73:16	; Spell ID #$16: Stepguard
0x01AE84|$06:$AE74:15	; Spell ID #$15: Open
0x01AE85|$06:$AE75:00	; Spell ID #$00: (no spell)
; Cannock battle spell list
; indexed data load target (from $AE46)
0x01AE86|$06:$AE76:01	; Spell ID #$01: Firebal
0x01AE87|$06:$AE77:09	; Spell ID #$09: Heal
0x01AE88|$06:$AE78:06	; Spell ID #$06: Stopspell
0x01AE89|$06:$AE79:0B	; Spell ID #$0B: Healmore
0x01AE8A|$06:$AE7A:03	; Spell ID #$03: Firebane
0x01AE8B|$06:$AE7B:0A	; Spell ID #$0A: Increase
0x01AE8C|$06:$AE7C:04	; Spell ID #$04: Defeat
0x01AE8D|$06:$AE7D:0C	; Spell ID #$0C: Sacrifice
; Moonbrooke battle spell list
0x01AE8E|$06:$AE7E:02	; Spell ID #$02: Sleep
0x01AE8F|$06:$AE7F:0B	; Spell ID #$0B: Healmore
0x01AE90|$06:$AE80:05	; Spell ID #$05: Infernos
0x01AE91|$06:$AE81:08	; Spell ID #$08: Defence
0x01AE92|$06:$AE82:07	; Spell ID #$07: Surround
0x01AE93|$06:$AE83:0D	; Spell ID #$0D: Healall
0x01AE94|$06:$AE84:0E	; Spell ID #$0E: Explodet
0x01AE95|$06:$AE85:0F	; Spell ID #$0F: Chance

; data -> code
; control flow target (from $ACCD)
; indirect control flow target (via $8016)
0x01AE96|$06:$AE86:20 9E AE	JSR $AE9E  
0x01AE99|$06:$AE89:20 56 AF	JSR $AF56  
0x01AE9C|$06:$AE8C:20 7F AF	JSR $AF7F  
; control flow target (from $AE9A)
0x01AE9F|$06:$AE8F:20 CC AE	JSR $AECC  
0x01AEA2|$06:$AE92:20 30 AF	JSR $AF30  
0x01AEA5|$06:$AE95:B0 06   	BCS $AE9D  
0x01AEA7|$06:$AE97:20 8E AF	JSR $AF8E  
0x01AEAA|$06:$AE9A:4C 8F AE	JMP $AE8F  

; control flow target (from $AE95)
0x01AEAD|$06:$AE9D:60      	RTS        

; control flow target (from $AE86)
0x01AEAE|$06:$AE9E:A9 FF   	LDA #$FF   
0x01AEB0|$06:$AEA0:85 8E   	STA $8E    	; flag for in battle or not (#$FF)?
0x01AEB2|$06:$AEA2:A9 00   	LDA #$00   
0x01AEB4|$06:$AEA4:8D C2 60	STA $60C2  
0x01AEB7|$06:$AEA7:8D C3 60	STA $60C3  
0x01AEBA|$06:$AEAA:A9 47   	LDA #$47   	; Menu ID #$47: Game menu: new game name entry display
; call to code in a different bank ($0F:$EB89)
0x01AEBC|$06:$AEAC:20 89 EB	JSR $EB89  	; open menu specified by A
0x01AEBF|$06:$AEAF:A9 44   	LDA #$44   	; Menu ID #$44: Game menu: new game name input area
; call to code in a different bank ($0F:$EB89)
0x01AEC1|$06:$AEB1:20 89 EB	JSR $EB89  	; open menu specified by A
; call to code in a different bank ($0F:$C22C)
0x01AEC4|$06:$AEB4:20 2C C2	JSR $C22C  
0x01AEC7|$06:$AEB7:A9 12   	LDA #$12   
0x01AEC9|$06:$AEB9:8D A5 60	STA $60A5  	; menu cursor second column X-offset (from left edge of menu)
0x01AECC|$06:$AEBC:A9 21   	LDA #$21   
0x01AECE|$06:$AEBE:8D A9 60	STA $60A9  	; menu cursor initial position (from ROM; X-pos = low nybble, Y-pos = high nybble)
0x01AED1|$06:$AEC1:A9 60   	LDA #$60   
0x01AED3|$06:$AEC3:A2 0C   	LDX #$0C   
; control flow target (from $AEC9)
0x01AED5|$06:$AEC5:9D 00 01	STA $0100,X	; string copy buffer start (often referenced as $00FF,X)
0x01AED8|$06:$AEC8:CA      	DEX        
0x01AED9|$06:$AEC9:10 FA   	BPL $AEC5  
0x01AEDB|$06:$AECB:60      	RTS        

; control flow target (from $AE8F)
0x01AEDC|$06:$AECC:C9 FF   	CMP #$FF   
0x01AEDE|$06:$AECE:F0 35   	BEQ $AF05  
0x01AEE0|$06:$AED0:C9 1A   	CMP #$1A   
0x01AEE2|$06:$AED2:90 1B   	BCC $AEEF  
0x01AEE4|$06:$AED4:C9 21   	CMP #$21   
0x01AEE6|$06:$AED6:90 21   	BCC $AEF9  
0x01AEE8|$06:$AED8:C9 3B   	CMP #$3B   
0x01AEEA|$06:$AEDA:90 18   	BCC $AEF4  
0x01AEEC|$06:$AEDC:C9 3D   	CMP #$3D   
0x01AEEE|$06:$AEDE:90 1F   	BCC $AEFF  
0x01AEF0|$06:$AEE0:C9 3D   	CMP #$3D   
0x01AEF2|$06:$AEE2:F0 21   	BEQ $AF05  
0x01AEF4|$06:$AEE4:20 46 AF	JSR $AF46  	; CLC if $0100-$0103 are all #$60, SEC otherwise
0x01AEF7|$06:$AEE7:90 05   	BCC $AEEE  
0x01AEF9|$06:$AEE9:A9 08   	LDA #$08   
0x01AEFB|$06:$AEEB:8D C2 60	STA $60C2  
; control flow target (from $AEE7)
0x01AEFE|$06:$AEEE:60      	RTS        

; control flow target (from $AED2)
0x01AEFF|$06:$AEEF:18      	CLC        
0x01AF00|$06:$AEF0:69 24   	ADC #$24   
0x01AF02|$06:$AEF2:D0 20   	BNE $AF14  
; control flow target (from $AEDA)
0x01AF04|$06:$AEF4:38      	SEC        
0x01AF05|$06:$AEF5:E9 17   	SBC #$17   
0x01AF07|$06:$AEF7:D0 1B   	BNE $AF14  
; control flow target (from $AED6)
0x01AF09|$06:$AEF9:AA      	TAX        
0x01AF0A|$06:$AEFA:BD 5C AF	LDA $AF5C,X
0x01AF0D|$06:$AEFD:D0 15   	BNE $AF14  
; control flow target (from $AEDE)
0x01AF0F|$06:$AEFF:AA      	TAX        	; A is either #$3B or #$3C
0x01AF10|$06:$AF00:BD 42 AF	LDA $AF42,X	; $AF7D or $AF7E
0x01AF13|$06:$AF03:D0 0F   	BNE $AF14  
; control flow target (from $AECE, $AEE2)
0x01AF15|$06:$AF05:AD C2 60	LDA $60C2  
0x01AF18|$06:$AF08:F0 09   	BEQ $AF13  
0x01AF1A|$06:$AF0A:20 5A AF	JSR $AF5A  
0x01AF1D|$06:$AF0D:CE C2 60	DEC $60C2  
0x01AF20|$06:$AF10:20 56 AF	JSR $AF56  
; control flow target (from $AF08)
0x01AF23|$06:$AF13:60      	RTS        

; control flow target (from $AEF2, $AEF7, $AEFD, $AF03)
0x01AF24|$06:$AF14:48      	PHA        
0x01AF25|$06:$AF15:20 5A AF	JSR $AF5A  
0x01AF28|$06:$AF18:68      	PLA        
0x01AF29|$06:$AF19:AE C2 60	LDX $60C2  
0x01AF2C|$06:$AF1C:9D 00 01	STA $0100,X	; string copy buffer start (often referenced as $00FF,X)
0x01AF2F|$06:$AF1F:20 60 AF	JSR $AF60  
0x01AF32|$06:$AF22:EE C2 60	INC $60C2  
0x01AF35|$06:$AF25:AD C2 60	LDA $60C2  
0x01AF38|$06:$AF28:C9 08   	CMP #$08   
0x01AF3A|$06:$AF2A:B0 03   	BCS $AF2F  
0x01AF3C|$06:$AF2C:20 56 AF	JSR $AF56  
; control flow target (from $AF2A)
0x01AF3F|$06:$AF2F:60      	RTS        

; control flow target (from $AE92)
0x01AF40|$06:$AF30:AD C2 60	LDA $60C2  
0x01AF43|$06:$AF33:C9 08   	CMP #$08   
0x01AF45|$06:$AF35:90 0E   	BCC $AF45  
0x01AF47|$06:$AF37:20 46 AF	JSR $AF46  	; CLC if $0100-$0103 are all #$60, SEC otherwise
0x01AF4A|$06:$AF3A:B0 09   	BCS $AF45  	; branch if we have something != #$60
0x01AF4C|$06:$AF3C:A9 07   	LDA #$07   
0x01AF4E|$06:$AF3E:8D C2 60	STA $60C2  
0x01AF51|$06:$AF41:20
; actual target is $AF7D/$AF7E
; indexed data load target (from $AF00)
0x01AF52|$06:$AF42:   56 AF	JSR $AF56  
0x01AF54|$06:$AF44:18      	CLC        
; control flow target (from $AF35, $AF3A)
0x01AF55|$06:$AF45:60      	RTS        

; CLC if $0100-$0103 are all #$60, SEC otherwise
; control flow target (from $AEE4, $AF37)
0x01AF56|$06:$AF46:A2 03   	LDX #$03   
; control flow target (from $AF50)
0x01AF58|$06:$AF48:BD 00 01	LDA $0100,X	; string copy buffer start (often referenced as $00FF,X)
0x01AF5B|$06:$AF4B:C9 60   	CMP #$60   
0x01AF5D|$06:$AF4D:D0 05   	BNE $AF54  
0x01AF5F|$06:$AF4F:CA      	DEX        
0x01AF60|$06:$AF50:10 F6   	BPL $AF48  
0x01AF62|$06:$AF52:18      	CLC        	; entire string is #$60
0x01AF63|$06:$AF53:60      	RTS        

; control flow target (from $AF4D)
0x01AF64|$06:$AF54:38      	SEC        	; not entire string is #$60
0x01AF65|$06:$AF55:60      	RTS        

; control flow target (from $AE89, $AF10, $AF2C, $AF41)
0x01AF66|$06:$AF56:A9 77   	LDA #$77   
0x01AF68|$06:$AF58:D0 02   	BNE $AF5C  
; control flow target (from $AF0A, $AF15)
0x01AF6A|$06:$AF5A:A9 5F   	LDA #$5F   
; control flow target (from $AF58)
; indexed data load target (from $AEFA)
0x01AF6C|$06:$AF5C:A2 07   	LDX #$07   
0x01AF6E|$06:$AF5E:D0 02   	BNE $AF62  
; control flow target (from $AF1F)
0x01AF70|$06:$AF60:A2 06   	LDX #$06   
; control flow target (from $AF5E)
0x01AF72|$06:$AF62:8E 8C 60	STX $608C  
0x01AF75|$06:$AF65:85 09   	STA $09    
0x01AF77|$06:$AF67:AD C2 60	LDA $60C2  
0x01AF7A|$06:$AF6A:18      	CLC        
0x01AF7B|$06:$AF6B:69 0C   	ADC #$0C   
0x01AF7D|$06:$AF6D:8D 8B 60	STA $608B  
0x01AF80|$06:$AF70:20 09 A8	JSR $A809  
; call to code in a different bank ($0F:$C1FA)
0x01AF83|$06:$AF73:4C FA C1	JMP $C1FA  	; wait for $02 to not be #$C0, write PPU address in $07-$08 and data in $09 to PPU write buffer at $0300,$02, $01 += 1, $02 += 3, and set $0183 to #$00


; code -> data
0x01AF86|$06:$AF76:67
0x01AF87|$06:$AF77:69
0x01AF88|$06:$AF78:6B
0x01AF89|$06:$AF79:70
0x01AF8A|$06:$AF7A:75
0x01AF8B|$06:$AF7B:63
0x01AF8C|$06:$AF7C:60
0x01AF8D|$06:$AF7D:6F
0x01AF8E|$06:$AF7E:6E

; data -> code
; from $0F:$F0BF via $8018
; control flow target (from $AE8C)
; indirect control flow target (via $8018)
0x01AF8F|$06:$AF7F:AD B4 60	LDA $60B4  	; menu phase (1 = first, 0 = second)
0x01AF92|$06:$AF82:D0 0D   	BNE $AF91  
0x01AF94|$06:$AF84:20 C6 AF	JSR $AFC6  
0x01AF97|$06:$AF87:A9 80   	LDA #$80   
0x01AF99|$06:$AF89:8D C5 60	STA $60C5  
0x01AF9C|$06:$AF8C:85 2F   	STA $2F    	; joypad 1 data
; control flow target (from $AE97)
; indirect control flow target (via $801A)
0x01AF9E|$06:$AF8E:20 92 AF	JSR $AF92  
; control flow target (from $AF82)
0x01AFA1|$06:$AF91:60      	RTS        

; control flow target (from $AF8E, $AF98)
0x01AFA2|$06:$AF92:20 9B AF	JSR $AF9B  
0x01AFA5|$06:$AF95:20 AC B0	JSR $B0AC  
0x01AFA8|$06:$AF98:4C 92 AF	JMP $AF92  

; control flow target (from $AF92, $AFB4, $AFC3)
; call to code in a different bank ($0F:$C1DC)
0x01AFAB|$06:$AF9B:20 DC C1	JSR $C1DC  	; set $6007 = #$00, set $00 = #$01, wait for interrupt, set $00 = #$FF
0x01AFAE|$06:$AF9E:20 85 B0	JSR $B085  
0x01AFB1|$06:$AFA1:A5 2F   	LDA $2F    	; joypad 1 data
0x01AFB3|$06:$AFA3:F0 06   	BEQ $AFAB  
0x01AFB5|$06:$AFA5:A5 03   	LDA $03    	; game clock?
0x01AFB7|$06:$AFA7:29 0F   	AND #$0F   
0x01AFB9|$06:$AFA9:D0 03   	BNE $AFAE  
; control flow target (from $AFA3)
0x01AFBB|$06:$AFAB:8D C5 60	STA $60C5  
; control flow target (from $AFA9)
; call to code in a different bank ($0F:$C476)
0x01AFBE|$06:$AFAE:20 76 C4	JSR $C476  	; read joypad 1 data into $2F
0x01AFC1|$06:$AFB1:AD C5 60	LDA $60C5  
0x01AFC4|$06:$AFB4:D0 E5   	BNE $AF9B  
0x01AFC6|$06:$AFB6:AD C5 60	LDA $60C5  
0x01AFC9|$06:$AFB9:25 2F   	AND $2F    	; joypad 1 data
0x01AFCB|$06:$AFBB:8D C5 60	STA $60C5  
0x01AFCE|$06:$AFBE:45 2F   	EOR $2F    	; joypad 1 data
0x01AFD0|$06:$AFC0:8D 8D 60	STA $608D  
0x01AFD3|$06:$AFC3:F0 D6   	BEQ $AF9B  
0x01AFD5|$06:$AFC5:60      	RTS        

; control flow target (from $AF84)
0x01AFD6|$06:$AFC6:A9 00   	LDA #$00   
0x01AFD8|$06:$AFC8:85 82   	STA $82    
0x01AFDA|$06:$AFCA:85 83   	STA $83    
0x01AFDC|$06:$AFCC:85 81   	STA $81    
0x01AFDE|$06:$AFCE:8D B0 60	STA $60B0  
0x01AFE1|$06:$AFD1:8D B1 60	STA $60B1  
0x01AFE4|$06:$AFD4:8D C5 60	STA $60C5  
0x01AFE7|$06:$AFD7:AD A5 60	LDA $60A5  	; menu cursor second column X-offset (from left edge of menu)
0x01AFEA|$06:$AFDA:4A      	LSR        
0x01AFEB|$06:$AFDB:4A      	LSR        
0x01AFEC|$06:$AFDC:4A      	LSR        
0x01AFED|$06:$AFDD:4A      	LSR        
0x01AFEE|$06:$AFDE:AA      	TAX        
0x01AFEF|$06:$AFDF:BD C8 B2	LDA $B2C8,X
0x01AFF2|$06:$AFE2:8D C4 60	STA $60C4  
0x01AFF5|$06:$AFE5:A5 59   	LDA $59    	; menu ID
0x01AFF7|$06:$AFE7:C9 13   	CMP #$13   	; Menu ID #$13: Main menu: equip weapon
0x01AFF9|$06:$AFE9:F0 58   	BEQ $B043  
0x01AFFB|$06:$AFEB:C9 2D   	CMP #$2D   	; Menu ID #$2D: Main menu: equip armour
0x01AFFD|$06:$AFED:F0 54   	BEQ $B043  
0x01AFFF|$06:$AFEF:C9 2E   	CMP #$2E   	; Menu ID #$2E: Main menu: equip shield
0x01B001|$06:$AFF1:F0 50   	BEQ $B043  
0x01B003|$06:$AFF3:C9 2F   	CMP #$2F   	; Menu ID #$2F: Main menu: equip helmet
0x01B005|$06:$AFF5:F0 4C   	BEQ $B043  
0x01B007|$06:$AFF7:C9 45   	CMP #$45   	; Menu ID #$45: Game menu: select message speed
0x01B009|$06:$AFF9:F0 07   	BEQ $B002  
0x01B00B|$06:$AFFB:C9 07   	CMP #$07   	; Menu ID #$07: Battle menu: spell list
0x01B00D|$06:$AFFD:F0 1C   	BEQ $B01B  
0x01B00F|$06:$AFFF:4C 60 B0	JMP $B060  

; control flow target (from $AFF9)
0x01B012|$06:$B002:A2 00   	LDX #$00   
0x01B014|$06:$B004:AD 2C 06	LDA $062C  	; current battle message delay
0x01B017|$06:$B007:C9 32   	CMP #$32   
0x01B019|$06:$B009:90 06   	BCC $B011  
0x01B01B|$06:$B00B:E8      	INX        
0x01B01C|$06:$B00C:C9 64   	CMP #$64   
0x01B01E|$06:$B00E:90 01   	BCC $B011  
0x01B020|$06:$B010:E8      	INX        
; control flow target (from $B009, $B00E)
0x01B021|$06:$B011:86 83   	STX $83    
0x01B023|$06:$B013:8A      	TXA        
0x01B024|$06:$B014:0A      	ASL        
0x01B025|$06:$B015:8D B1 60	STA $60B1  
0x01B028|$06:$B018:4C 60 B0	JMP $B060  

; control flow target (from $AFFD)
0x01B02B|$06:$B01B:A2 00   	LDX #$00   
; control flow target (from $B025)
0x01B02D|$06:$B01D:BD BA 60	LDA $60BA,X
0x01B030|$06:$B020:D0 07   	BNE $B029  
0x01B032|$06:$B022:E8      	INX        
0x01B033|$06:$B023:E0 08   	CPX #$08   
0x01B035|$06:$B025:D0 F6   	BNE $B01D  
0x01B037|$06:$B027:A2 00   	LDX #$00   
; control flow target (from $B020)
0x01B039|$06:$B029:8A      	TXA        
0x01B03A|$06:$B02A:29 01   	AND #$01   
0x01B03C|$06:$B02C:85 82   	STA $82    
0x01B03E|$06:$B02E:F0 08   	BEQ $B038  
0x01B040|$06:$B030:AD A5 60	LDA $60A5  	; menu cursor second column X-offset (from left edge of menu)
0x01B043|$06:$B033:29 0F   	AND #$0F   
0x01B045|$06:$B035:8D B0 60	STA $60B0  
; control flow target (from $B02E)
0x01B048|$06:$B038:8A      	TXA        
0x01B049|$06:$B039:4A      	LSR        
0x01B04A|$06:$B03A:85 83   	STA $83    
0x01B04C|$06:$B03C:0A      	ASL        
0x01B04D|$06:$B03D:8D B1 60	STA $60B1  
0x01B050|$06:$B040:4C 60 B0	JMP $B060  

; control flow target (from $AFE9, $AFED, $AFF1, $AFF5)
0x01B053|$06:$B043:AD B9 60	LDA $60B9  
0x01B056|$06:$B046:C9 FF   	CMP #$FF   
0x01B058|$06:$B048:F0 09   	BEQ $B053  
0x01B05A|$06:$B04A:85 83   	STA $83    
0x01B05C|$06:$B04C:0A      	ASL        
0x01B05D|$06:$B04D:8D B1 60	STA $60B1  
0x01B060|$06:$B050:4C 60 B0	JMP $B060  

; control flow target (from $B048)
0x01B063|$06:$B053:38      	SEC        
0x01B064|$06:$B054:AD A3 60	LDA $60A3  	; menu window height (ROM value * 2)
0x01B067|$06:$B057:E9 03   	SBC #$03   
0x01B069|$06:$B059:4A      	LSR        
0x01B06A|$06:$B05A:85 83   	STA $83    
0x01B06C|$06:$B05C:0A      	ASL        
0x01B06D|$06:$B05D:8D B1 60	STA $60B1  
; control flow target (from $AFFF, $B018, $B040, $B050)
0x01B070|$06:$B060:AD A9 60	LDA $60A9  	; menu cursor initial position (from ROM; X-pos = low nybble, Y-pos = high nybble)
0x01B073|$06:$B063:48      	PHA        
0x01B074|$06:$B064:29 0F   	AND #$0F   
0x01B076|$06:$B066:8D B2 60	STA $60B2  
0x01B079|$06:$B069:18      	CLC        
0x01B07A|$06:$B06A:6D B0 60	ADC $60B0  
0x01B07D|$06:$B06D:8D B0 60	STA $60B0  
0x01B080|$06:$B070:68      	PLA        
0x01B081|$06:$B071:29 F0   	AND #$F0   
0x01B083|$06:$B073:4A      	LSR        
0x01B084|$06:$B074:4A      	LSR        
0x01B085|$06:$B075:4A      	LSR        
0x01B086|$06:$B076:4A      	LSR        
0x01B087|$06:$B077:8D B3 60	STA $60B3  
0x01B08A|$06:$B07A:6D B1 60	ADC $60B1  
0x01B08D|$06:$B07D:8D B1 60	STA $60B1  
0x01B090|$06:$B080:A9 05   	LDA #$05   
0x01B092|$06:$B082:85 03   	STA $03    	; game clock?
0x01B094|$06:$B084:60      	RTS        

; control flow target (from $AF9E)
0x01B095|$06:$B085:A2 5F   	LDX #$5F   
0x01B097|$06:$B087:A5 03   	LDA $03    	; game clock?
0x01B099|$06:$B089:29 1F   	AND #$1F   
0x01B09B|$06:$B08B:C9 10   	CMP #$10   
0x01B09D|$06:$B08D:B0 02   	BCS $B091  
; control flow target (from $B218)
0x01B09F|$06:$B08F:A2 72   	LDX #$72   
; control flow target (from $B08D, $B211)
0x01B0A1|$06:$B091:86 09   	STX $09    
0x01B0A3|$06:$B093:A5 4D   	LDA $4D    
0x01B0A5|$06:$B095:18      	CLC        
0x01B0A6|$06:$B096:6D B0 60	ADC $60B0  
0x01B0A9|$06:$B099:8D 8B 60	STA $608B  
0x01B0AC|$06:$B09C:A5 4E   	LDA $4E    
0x01B0AE|$06:$B09E:18      	CLC        
0x01B0AF|$06:$B09F:6D B1 60	ADC $60B1  
0x01B0B2|$06:$B0A2:8D 8C 60	STA $608C  
; call to code in a different bank ($0F:$FE97)
0x01B0B5|$06:$B0A5:20 97 FE	JSR $FE97  	; read byte following JSR, parse it for bank and pointer index, execute ($8000,X) in selected bank, swap back in original bank

; code -> data
; indirect data load target
0x01B0B8|$06:$B0A8:C1	; $06:$8002

; data -> code
; call to code in a different bank ($0F:$C1FA)
0x01B0B9|$06:$B0A9:4C FA C1	JMP $C1FA  	; wait for $02 to not be #$C0, write PPU address in $07-$08 and data in $09 to PPU write buffer at $0300,$02, $01 += 1, $02 += 3, and set $0183 to #$00

; control flow target (from $AF95)
0x01B0BC|$06:$B0AC:AD 8D 60	LDA $608D  
0x01B0BF|$06:$B0AF:4A      	LSR        
0x01B0C0|$06:$B0B0:B0 17   	BCS $B0C9  
0x01B0C2|$06:$B0B2:4A      	LSR        
0x01B0C3|$06:$B0B3:B0 31   	BCS $B0E6  
0x01B0C5|$06:$B0B5:4A      	LSR        
0x01B0C6|$06:$B0B6:4A      	LSR        
0x01B0C7|$06:$B0B7:4A      	LSR        
0x01B0C8|$06:$B0B8:B0 39   	BCS $B0F3  
0x01B0CA|$06:$B0BA:4A      	LSR        
0x01B0CB|$06:$B0BB:B0 63   	BCS $B120  
0x01B0CD|$06:$B0BD:4A      	LSR        
0x01B0CE|$06:$B0BE:B0 06   	BCS $B0C6  
0x01B0D0|$06:$B0C0:4A      	LSR        
0x01B0D1|$06:$B0C1:90 47   	BCC $B10A  
0x01B0D3|$06:$B0C3:4C BE B1	JMP $B1BE  

; control flow target (from $B0BE)
0x01B0D6|$06:$B0C6:4C 74 B1	JMP $B174  

; control flow target (from $B0B0)
0x01B0D9|$06:$B0C9:A9 01   	LDA #$01   
0x01B0DB|$06:$B0CB:8D C5 60	STA $60C5  
0x01B0DE|$06:$B0CE:20 14 B2	JSR $B214  
0x01B0E1|$06:$B0D1:A9 85   	LDA #$85   	; Music ID #$85: single beep SFX
; call to code in a different bank ($0F:$C561)
0x01B0E3|$06:$B0D3:20 61 C5	JSR $C561  	; play PCM specified by A (>= #$80 = sound effect [SFX], < #$80 = background music [BGM])
0x01B0E6|$06:$B0D6:A5 82   	LDA $82    
0x01B0E8|$06:$B0D8:85 12   	STA $12    
0x01B0EA|$06:$B0DA:A5 83   	LDA $83    
0x01B0EC|$06:$B0DC:85 13   	STA $13    
0x01B0EE|$06:$B0DE:20 94 B2	JSR $B294  
0x01B0F1|$06:$B0E1:68      	PLA        
0x01B0F2|$06:$B0E2:68      	PLA        
0x01B0F3|$06:$B0E3:A5 81   	LDA $81    
0x01B0F5|$06:$B0E5:60      	RTS        

; control flow target (from $B0B3)
0x01B0F6|$06:$B0E6:A9 02   	LDA #$02   
0x01B0F8|$06:$B0E8:8D C5 60	STA $60C5  
0x01B0FB|$06:$B0EB:20 14 B2	JSR $B214  
0x01B0FE|$06:$B0EE:68      	PLA        
0x01B0FF|$06:$B0EF:68      	PLA        
0x01B100|$06:$B0F0:A9 FF   	LDA #$FF   
0x01B102|$06:$B0F2:60      	RTS        

; control flow target (from $B0B8)
0x01B103|$06:$B0F3:A9 10   	LDA #$10   
0x01B105|$06:$B0F5:8D C5 60	STA $60C5  
0x01B108|$06:$B0F8:2C AA 60	BIT $60AA  	; menu format (#$80 = has cursor, #$40 = is linked, #$20 = is single spaced, #$02 = only display equipped items, #$01 = display [left border, equipped] if equipped)
0x01B10B|$06:$B0FB:70 0E   	BVS $B10B  
; control flow target (from $B112)
0x01B10D|$06:$B0FD:A5 83   	LDA $83    
0x01B10F|$06:$B0FF:F0 09   	BEQ $B10A  
0x01B111|$06:$B101:20 0F B2	JSR $B20F  
0x01B114|$06:$B104:20 BC B2	JSR $B2BC  
0x01B117|$06:$B107:20 14 B2	JSR $B214  
; control flow target (from $B0C1, $B0FF, $B10E)
0x01B11A|$06:$B10A:60      	RTS        

; control flow target (from $B0FB)
0x01B11B|$06:$B10B:AD B1 60	LDA $60B1  
0x01B11E|$06:$B10E:F0 FA   	BEQ $B10A  
0x01B120|$06:$B110:A5 83   	LDA $83    
0x01B122|$06:$B112:D0 E9   	BNE $B0FD  
0x01B124|$06:$B114:20 0F B2	JSR $B20F  
0x01B127|$06:$B117:A9 00   	LDA #$00   
0x01B129|$06:$B119:8D B1 60	STA $60B1  
0x01B12C|$06:$B11C:20 14 B2	JSR $B214  
0x01B12F|$06:$B11F:60      	RTS        

; control flow target (from $B0BB)
0x01B130|$06:$B120:A9 20   	LDA #$20   
0x01B132|$06:$B122:8D C5 60	STA $60C5  
0x01B135|$06:$B125:A5 59   	LDA $59    	; menu ID
0x01B137|$06:$B127:C9 45   	CMP #$45   	; Menu ID #$45: Game menu: select message speed
0x01B139|$06:$B129:D0 06   	BNE $B131  
0x01B13B|$06:$B12B:A5 83   	LDA $83    
0x01B13D|$06:$B12D:C9 02   	CMP #$02   
0x01B13F|$06:$B12F:F0 42   	BEQ $B173  
; control flow target (from $B129)
0x01B141|$06:$B131:38      	SEC        
0x01B142|$06:$B132:AD A3 60	LDA $60A3  	; menu window height (ROM value * 2)
0x01B145|$06:$B135:E9 03   	SBC #$03   
0x01B147|$06:$B137:4A      	LSR        
0x01B148|$06:$B138:C5 83   	CMP $83    
0x01B14A|$06:$B13A:F0 37   	BEQ $B173  
0x01B14C|$06:$B13C:20 0F B2	JSR $B20F  
0x01B14F|$06:$B13F:A5 59   	LDA $59    	; menu ID
0x01B151|$06:$B141:C9 44   	CMP #$44   	; Menu ID #$44: Game menu: new game name input area
0x01B153|$06:$B143:F0 13   	BEQ $B158  
0x01B155|$06:$B145:C9 07   	CMP #$07   	; Menu ID #$07: Battle menu: spell list
0x01B157|$06:$B147:F0 08   	BEQ $B151  
0x01B159|$06:$B149:C9 08   	CMP #$08   	; Menu ID #$08: Battle menu: item list window 1
0x01B15B|$06:$B14B:F0 04   	BEQ $B151  
0x01B15D|$06:$B14D:C9 22   	CMP #$22   	; Menu ID #$22: Battle menu: item list window 2
0x01B15F|$06:$B14F:D0 0A   	BNE $B15B  
; control flow target (from $B147, $B14B)
0x01B161|$06:$B151:20 43 B2	JSR $B243  
0x01B164|$06:$B154:90 1D   	BCC $B173  
0x01B166|$06:$B156:B0 03   	BCS $B15B  
; control flow target (from $B143)
0x01B168|$06:$B158:20 1E B2	JSR $B21E  
; control flow target (from $B14F, $B156)
0x01B16B|$06:$B15B:AD B1 60	LDA $60B1  
0x01B16E|$06:$B15E:D0 08   	BNE $B168  
0x01B170|$06:$B160:AD B3 60	LDA $60B3  
0x01B173|$06:$B163:8D B1 60	STA $60B1  
0x01B176|$06:$B166:D0 08   	BNE $B170  
; control flow target (from $B15E)
0x01B178|$06:$B168:18      	CLC        
0x01B179|$06:$B169:69 02   	ADC #$02   
0x01B17B|$06:$B16B:8D B1 60	STA $60B1  
0x01B17E|$06:$B16E:E6 83   	INC $83    
; control flow target (from $B166)
0x01B180|$06:$B170:20 14 B2	JSR $B214  
; control flow target (from $B12F, $B13A, $B154)
0x01B183|$06:$B173:60      	RTS        

; control flow target (from $B0C6)
0x01B184|$06:$B174:A9 40   	LDA #$40   
0x01B186|$06:$B176:8D C5 60	STA $60C5  
0x01B189|$06:$B179:A5 82   	LDA $82    
0x01B18B|$06:$B17B:F0 40   	BEQ $B1BD  
0x01B18D|$06:$B17D:A5 59   	LDA $59    	; menu ID
0x01B18F|$06:$B17F:C9 44   	CMP #$44   	; Menu ID #$44: Game menu: new game name input area
0x01B191|$06:$B181:F0 0B   	BEQ $B18E  
0x01B193|$06:$B183:C9 07   	CMP #$07   	; Menu ID #$07: Battle menu: spell list
0x01B195|$06:$B185:D0 1E   	BNE $B1A5  
0x01B197|$06:$B187:20 52 B2	JSR $B252  
0x01B19A|$06:$B18A:90 31   	BCC $B1BD  
0x01B19C|$06:$B18C:B0 17   	BCS $B1A5  
; control flow target (from $B181)
0x01B19E|$06:$B18E:A5 83   	LDA $83    
0x01B1A0|$06:$B190:C9 05   	CMP #$05   
0x01B1A2|$06:$B192:D0 11   	BNE $B1A5  
0x01B1A4|$06:$B194:A5 82   	LDA $82    
0x01B1A6|$06:$B196:C9 09   	CMP #$09   
0x01B1A8|$06:$B198:D0 0B   	BNE $B1A5  
0x01B1AA|$06:$B19A:A9 06   	LDA #$06   
0x01B1AC|$06:$B19C:85 82   	STA $82    
0x01B1AE|$06:$B19E:20 0F B2	JSR $B20F  
0x01B1B1|$06:$B1A1:A9 0D   	LDA #$0D   
0x01B1B3|$06:$B1A3:D0 12   	BNE $B1B7  
; control flow target (from $B185, $B18C, $B192, $B198)
0x01B1B5|$06:$B1A5:20 0F B2	JSR $B20F  
0x01B1B8|$06:$B1A8:C6 82   	DEC $82    
0x01B1BA|$06:$B1AA:AD A5 60	LDA $60A5  	; menu cursor second column X-offset (from left edge of menu)
0x01B1BD|$06:$B1AD:29 0F   	AND #$0F   
0x01B1BF|$06:$B1AF:85 10   	STA $10    
0x01B1C1|$06:$B1B1:AD B0 60	LDA $60B0  
0x01B1C4|$06:$B1B4:38      	SEC        
0x01B1C5|$06:$B1B5:E5 10   	SBC $10    
; control flow target (from $B1A3)
0x01B1C7|$06:$B1B7:8D B0 60	STA $60B0  
0x01B1CA|$06:$B1BA:20 14 B2	JSR $B214  
; control flow target (from $B17B, $B18A)
0x01B1CD|$06:$B1BD:60      	RTS        

; control flow target (from $B0C3)
0x01B1CE|$06:$B1BE:A9 80   	LDA #$80   
0x01B1D0|$06:$B1C0:8D C5 60	STA $60C5  
0x01B1D3|$06:$B1C3:AD A5 60	LDA $60A5  	; menu cursor second column X-offset (from left edge of menu)
0x01B1D6|$06:$B1C6:F0 46   	BEQ $B20E  
0x01B1D8|$06:$B1C8:A5 59   	LDA $59    	; menu ID
0x01B1DA|$06:$B1CA:C9 44   	CMP #$44   	; Menu ID #$44: Game menu: new game name input area
0x01B1DC|$06:$B1CC:F0 0B   	BEQ $B1D9  
0x01B1DE|$06:$B1CE:C9 07   	CMP #$07   	; Menu ID #$07: Battle menu: spell list
0x01B1E0|$06:$B1D0:D0 20   	BNE $B1F2  
0x01B1E2|$06:$B1D2:20 5A B2	JSR $B25A  
0x01B1E5|$06:$B1D5:90 37   	BCC $B20E  
0x01B1E7|$06:$B1D7:B0 19   	BCS $B1F2  
; control flow target (from $B1CC)
0x01B1E9|$06:$B1D9:A5 83   	LDA $83    
0x01B1EB|$06:$B1DB:C9 05   	CMP #$05   
0x01B1ED|$06:$B1DD:D0 13   	BNE $B1F2  
0x01B1EF|$06:$B1DF:A5 82   	LDA $82    
0x01B1F1|$06:$B1E1:C9 06   	CMP #$06   
0x01B1F3|$06:$B1E3:90 0D   	BCC $B1F2  
0x01B1F5|$06:$B1E5:D0 27   	BNE $B20E  
0x01B1F7|$06:$B1E7:20 0F B2	JSR $B20F  
0x01B1FA|$06:$B1EA:A9 09   	LDA #$09   
0x01B1FC|$06:$B1EC:85 82   	STA $82    
0x01B1FE|$06:$B1EE:A9 13   	LDA #$13   
0x01B200|$06:$B1F0:D0 16   	BNE $B208  
; control flow target (from $B1D0, $B1D7, $B1DD, $B1E3)
0x01B202|$06:$B1F2:AE C4 60	LDX $60C4  
0x01B205|$06:$B1F5:CA      	DEX        
0x01B206|$06:$B1F6:E4 82   	CPX $82    
0x01B208|$06:$B1F8:F0 14   	BEQ $B20E  
0x01B20A|$06:$B1FA:20 0F B2	JSR $B20F  
0x01B20D|$06:$B1FD:E6 82   	INC $82    
0x01B20F|$06:$B1FF:AD A5 60	LDA $60A5  	; menu cursor second column X-offset (from left edge of menu)
0x01B212|$06:$B202:29 0F   	AND #$0F   
0x01B214|$06:$B204:18      	CLC        
0x01B215|$06:$B205:6D B0 60	ADC $60B0  
; control flow target (from $B1F0)
0x01B218|$06:$B208:8D B0 60	STA $60B0  
0x01B21B|$06:$B20B:20 14 B2	JSR $B214  
; control flow target (from $B1C6, $B1D5, $B1E5, $B1F8)
0x01B21E|$06:$B20E:60      	RTS        

; control flow target (from $B101, $B114, $B13C, $B19E, $B1A5, $B1E7, $B1FA, $B276, $B27F)
0x01B21F|$06:$B20F:A2 5F   	LDX #$5F   
0x01B221|$06:$B211:4C 91 B0	JMP $B091  

; control flow target (from $B0CE, $B0EB, $B107, $B11C, $B170, $B1BA, $B20B)
0x01B224|$06:$B214:A9 05   	LDA #$05   
0x01B226|$06:$B216:85 03   	STA $03    	; game clock?
0x01B228|$06:$B218:20 8F B0	JSR $B08F  
; call to code in a different bank ($0F:$C1DC)
0x01B22B|$06:$B21B:4C DC C1	JMP $C1DC  	; set $6007 = #$00, set $00 = #$01, wait for interrupt, set $00 = #$FF

; control flow target (from $B158)
0x01B22E|$06:$B21E:A5 83   	LDA $83    
0x01B230|$06:$B220:C9 04   	CMP #$04   
0x01B232|$06:$B222:D0 1E   	BNE $B242  
0x01B234|$06:$B224:A5 82   	LDA $82    
0x01B236|$06:$B226:C9 07   	CMP #$07   
0x01B238|$06:$B228:F0 0F   	BEQ $B239  
0x01B23A|$06:$B22A:C9 08   	CMP #$08   
0x01B23C|$06:$B22C:90 14   	BCC $B242  
0x01B23E|$06:$B22E:A9 09   	LDA #$09   
0x01B240|$06:$B230:85 82   	STA $82    
0x01B242|$06:$B232:A9 13   	LDA #$13   
0x01B244|$06:$B234:8D B0 60	STA $60B0  
0x01B247|$06:$B237:D0 09   	BNE $B242  
; control flow target (from $B228)
0x01B249|$06:$B239:A9 06   	LDA #$06   
0x01B24B|$06:$B23B:85 82   	STA $82    
0x01B24D|$06:$B23D:A9 0D   	LDA #$0D   
0x01B24F|$06:$B23F:8D B0 60	STA $60B0  
; control flow target (from $B222, $B22C, $B237)
0x01B252|$06:$B242:60      	RTS        

; control flow target (from $B151)
0x01B253|$06:$B243:20 B3 B2	JSR $B2B3  	; copy $82-$83 to $12-$13
0x01B256|$06:$B246:E6 13   	INC $13    
0x01B258|$06:$B248:AD B1 60	LDA $60B1  
0x01B25B|$06:$B24B:F0 03   	BEQ $B250  
0x01B25D|$06:$B24D:4C 87 B2	JMP $B287  

; control flow target (from $B24B)
0x01B260|$06:$B250:38      	SEC        
0x01B261|$06:$B251:60      	RTS        

; control flow target (from $B187)
0x01B262|$06:$B252:20 B3 B2	JSR $B2B3  	; copy $82-$83 to $12-$13
0x01B265|$06:$B255:C6 12   	DEC $12    
0x01B267|$06:$B257:4C 5F B2	JMP $B25F  

; control flow target (from $B1D2)
0x01B26A|$06:$B25A:20 B3 B2	JSR $B2B3  	; copy $82-$83 to $12-$13
0x01B26D|$06:$B25D:E6 12   	INC $12    
; control flow target (from $B257)
0x01B26F|$06:$B25F:20 87 B2	JSR $B287  
0x01B272|$06:$B262:B0 22   	BCS $B286  
0x01B274|$06:$B264:C6 13   	DEC $13    
0x01B276|$06:$B266:30 1E   	BMI $B286  
0x01B278|$06:$B268:20 87 B2	JSR $B287  
0x01B27B|$06:$B26B:B0 12   	BCS $B27F  
0x01B27D|$06:$B26D:C6 13   	DEC $13    
0x01B27F|$06:$B26F:30 15   	BMI $B286  
0x01B281|$06:$B271:20 87 B2	JSR $B287  
0x01B284|$06:$B274:90 10   	BCC $B286  
0x01B286|$06:$B276:20 0F B2	JSR $B20F  
0x01B289|$06:$B279:20 BC B2	JSR $B2BC  
0x01B28C|$06:$B27C:4C 82 B2	JMP $B282  

; control flow target (from $B26B)
0x01B28F|$06:$B27F:20 0F B2	JSR $B20F  
; control flow target (from $B27C)
0x01B292|$06:$B282:20 BC B2	JSR $B2BC  
0x01B295|$06:$B285:38      	SEC        
; control flow target (from $B262, $B266, $B26F, $B274)
0x01B296|$06:$B286:60      	RTS        

; control flow target (from $B24D, $B25F, $B268, $B271)
0x01B297|$06:$B287:20 94 B2	JSR $B294  
0x01B29A|$06:$B28A:AA      	TAX        
0x01B29B|$06:$B28B:BD BA 60	LDA $60BA,X
0x01B29E|$06:$B28E:F0 02   	BEQ $B292  
0x01B2A0|$06:$B290:38      	SEC        
0x01B2A1|$06:$B291:60      	RTS        

; control flow target (from $B28E)
0x01B2A2|$06:$B292:18      	CLC        
0x01B2A3|$06:$B293:60      	RTS        

; control flow target (from $B0DE, $B287)
0x01B2A4|$06:$B294:A5 13   	LDA $13    
0x01B2A6|$06:$B296:AE A5 60	LDX $60A5  	; menu cursor second column X-offset (from left edge of menu)
0x01B2A9|$06:$B299:F0 15   	BEQ $B2B0  
0x01B2AB|$06:$B29B:29 0F   	AND #$0F   
0x01B2AD|$06:$B29D:85 10   	STA $10    
0x01B2AF|$06:$B29F:A9 00   	LDA #$00   
0x01B2B1|$06:$B2A1:85 11   	STA $11    
0x01B2B3|$06:$B2A3:A2 10   	LDX #$10   
0x01B2B5|$06:$B2A5:AD C4 60	LDA $60C4  
; call to code in a different bank ($0F:$F0F4)
0x01B2B8|$06:$B2A8:20 F4 F0	JSR $F0F4  	; 16-bit multiplication: set 16-bit ($00,X-$01,X) = ($00,X-$01,X) * A
0x01B2BB|$06:$B2AB:A5 10   	LDA $10    
0x01B2BD|$06:$B2AD:18      	CLC        
0x01B2BE|$06:$B2AE:65 12   	ADC $12    
; control flow target (from $B299)
0x01B2C0|$06:$B2B0:85 81   	STA $81    
0x01B2C2|$06:$B2B2:60      	RTS        

; copy $82-$83 to $12-$13
; control flow target (from $B243, $B252, $B25A)
0x01B2C3|$06:$B2B3:A5 82   	LDA $82    
0x01B2C5|$06:$B2B5:85 12   	STA $12    
0x01B2C7|$06:$B2B7:A5 83   	LDA $83    
0x01B2C9|$06:$B2B9:85 13   	STA $13    
0x01B2CB|$06:$B2BB:60      	RTS        

; control flow target (from $B104, $B279, $B282)
0x01B2CC|$06:$B2BC:AD B1 60	LDA $60B1  
0x01B2CF|$06:$B2BF:38      	SEC        
0x01B2D0|$06:$B2C0:E9 02   	SBC #$02   
0x01B2D2|$06:$B2C2:8D B1 60	STA $60B1  
0x01B2D5|$06:$B2C5:C6 83   	DEC $83    
0x01B2D7|$06:$B2C7:60      	RTS        


; code -> data
; indexed data load target (from $AFDF)
0x01B2D8|$06:$B2C8:02
0x01B2D9|$06:$B2C9:0B
; Item list part 1, line 1
; indirect data load target (via $8022)
0x01B2DA|$06:$B2CA:25 0A 16 0B 18 18 FF	; Bamboo[end-FF]
0x01B2E1|$06:$B2D1:30 0A 10 12 0C FF	; Magic[end-FF]
0x01B2E7|$06:$B2D7:3A 12 23 0A 1B 0D 67 1C FF	; Wizard's[end-FF]
0x01B2F0|$06:$B2E0:36 1D 0A 0F 0F 5F 18 0F FF	; Staff of[end-FF]
0x01B2F9|$06:$B2E9:26 15 1E 0B FF	; Club[end-FF]
0x01B2FE|$06:$B2EE:26 18 19 19 0E 1B FF	; Copper[end-FF]
0x01B305|$06:$B2F5:26 11 0A 12 17 FF	; Chain[end-FF]
0x01B30B|$06:$B2FB:2C 1B 18 17 FF	; Iron[end-FF]
0x01B310|$06:$B300:29 0A 15 0C 18 17 FF	; Falcon[end-FF]
0x01B317|$06:$B307:25 1B 18 0A 0D FF	; Broad[end-FF]
0x01B31D|$06:$B30D:2A 12 0A 17 1D FF	; Giant[end-FF]
0x01B323|$06:$B313:36 20 18 1B 0D 5F 18 0F FF	; Sword of[end-FF]
0x01B32C|$06:$B31C:27 1B 0A 10 18 17 FF	; Dragon[end-FF]
0x01B333|$06:$B323:2F 12 10 11 1D FF	; Light[end-FF]
0x01B339|$06:$B329:36 20 18 1B 0D 5F 18 0F FF	; Sword of[end-FF]
0x01B342|$06:$B332:37 11 1E 17 0D 0E 1B FF	; Thunder[end-FF]
0x01B34A|$06:$B33A:26 15 18 1D 11 0E 1C FF	; Clothes[end-FF]
0x01B352|$06:$B342:26 15 18 1D 11 0E 1C FF	; Clothes[end-FF]
0x01B35A|$06:$B34A:3A 0A 1D 0E 1B 5F 29 15 22 12 17 10 FF	; Water Flying[end-FF]
0x01B367|$06:$B357:30 12 17 14 FF	; Mink[end-FF]
0x01B36C|$06:$B35C:2F 0E 0A 1D 11 0E 1B FF	; Leather[end-FF]
0x01B374|$06:$B364:26 11 0A 12 17 FF	; Chain[end-FF]
0x01B37A|$06:$B36A:2A 1B 0E 16 15 12 17 67 1C FF	; Gremlin's[end-FF]
0x01B384|$06:$B374:30 0A 10 12 0C FF	; Magic[end-FF]
0x01B38A|$06:$B37A:29 1E 15 15 5F 33 15 0A 1D 0E FF	; Full Plate[end-FF]
0x01B395|$06:$B385:24 1B 16 18 1B 5F 18 0F FF	; Armor of[end-FF]
0x01B39E|$06:$B38E:24 1B 16 18 1B 5F 18 0F FF	; Armor of[end-FF]
0x01B3A7|$06:$B397:2F 0E 0A 1D 11 0E 1B FF	; Leather[end-FF]
0x01B3AF|$06:$B39F:36 11 12 0E 15 0D 5F 18 0F FF	; Shield of[end-FF]
0x01B3B9|$06:$B3A9:36 1D 0E 0E 15 FF	; Steel[end-FF]
0x01B3BF|$06:$B3AF:28 1F 12 15 FF	; Evil[end-FF]
0x01B3C4|$06:$B3B4:36 11 12 0E 15 0D 5F 18 0F FF	; Shield of[end-FF]
; Item list part 2, line 1
; indirect data load target (via $8030)
0x01B3CE|$06:$B3BE:30 22 1C 1D 0E 1B 12 18 1E 1C FF	; Mysterious[end-FF]
0x01B3D9|$06:$B3C9:2C 1B 18 17 FF	; Iron[end-FF]
0x01B3DE|$06:$B3CE:2B 0E 15 16 0E 1D 5F 18 0F FF	; Helmet of[end-FF]
0x01B3E8|$06:$B3D8:37 18 14 0E 17 5F 18 0F FF	; Token of[end-FF]
0x01B3F1|$06:$B3E1:37 1B 0E 1C 1E 1B 0E 1C FF	; Tresures[end-FF]
0x01B3FA|$06:$B3EA:30 18 18 17 FF	; Moon[end-FF]
0x01B3FF|$06:$B3EF:26 11 0A 1B 16 5F 18 0F FF	; Charm of[end-FF]
0x01B408|$06:$B3F8:28 22 0E 5F 18 0F FF	; Eye of[end-FF]
0x01B40F|$06:$B3FF:2F 0E 0A 0F 5F 18 0F 5F 37 11 0E FF	; Leaf of The[end-FF]
0x01B41B|$06:$B40B:28 0C 11 18 12 17 10 FF	; Echoing[end-FF]
0x01B423|$06:$B413:30 12 1B 1B 18 1B 5F 18 0F FF	; Mirror of[end-FF]
0x01B42D|$06:$B41D:27 0E 20 67 1C FF	; Dew's[end-FF]
0x01B433|$06:$B423:30 0A 10 12 0C FF	; Magic[end-FF]
0x01B439|$06:$B429:26 15 18 0A 14 5F 18 0F FF	; Cloak of[end-FF]
0x01B442|$06:$B432:2A 1B 0E 16 15 12 17 67 1C FF	; Gremlin's[end-FF]
0x01B44C|$06:$B43C:27 1B 0A 10 18 17 67 1C FF	; Dragon's[end-FF]
0x01B455|$06:$B445:27 1B 0A 10 18 17 67 1C FF	; Dragon's[end-FF]
0x01B45E|$06:$B44E:2A 18 15 0D 0E 17 FF	; Golden[end-FF]
0x01B465|$06:$B455:2F 18 1D 1D 0E 1B 22 FF	; Lottery[end-FF]
0x01B46D|$06:$B45D:29 0A 12 1B 22 FF	; Fairy[end-FF]
0x01B473|$06:$B463:3A 12 17 10 5F 18 0F FF	; Wing of[end-FF]
0x01B47B|$06:$B46B:FF	; [end-FF]
0x01B47C|$06:$B46C:2A 18 15 0D 0E 17 FF	; Golden[end-FF]
0x01B483|$06:$B473:36 12 15 1F 0E 1B FF	; Silver[end-FF]
0x01B48A|$06:$B47A:2D 0A 12 15 18 1B 67 1C FF	; Jailor's[end-FF]
0x01B493|$06:$B483:3A 0A 1D 0E 1B 10 0A 1D 0E FF	; Watergate[end-FF]
0x01B49D|$06:$B48D:24 17 1D 12 0D 18 1D 0E FF	; Antidote[end-FF]
0x01B4A6|$06:$B496:30 0E 0D 12 0C 0A 15 FF	; Medical[end-FF]
0x01B4AE|$06:$B49E:3A 12 23 0A 1B 0D 67 1C FF	; Wizard's[end-FF]
0x01B4B7|$06:$B4A7:33 0E 1B 12 15 18 1E 1C FF	; Perilous[end-FF]
0x01B4C0|$06:$B4B0:FF	; [end-FF]
0x01B4C1|$06:$B4B1:FF	; [end-FF]
; Item list part 1, line 2
; indirect data load target (via $8024)
0x01B4C2|$06:$B4B2:36 1D 12 0C 14 FF	; Stick[end-FF]
0x01B4C8|$06:$B4B8:2E 17 12 0F 0E FF	; Knife[end-FF]
0x01B4CE|$06:$B4BE:3A 0A 17 0D FF	; Wand[end-FF]
0x01B4D3|$06:$B4C3:37 11 1E 17 0D 0E 1B FF	; Thunder[end-FF]
0x01B4DB|$06:$B4CB:FF	; [end-FF]
0x01B4DC|$06:$B4CC:36 20 18 1B 0D FF	; Sword[end-FF]
0x01B4E2|$06:$B4D2:36 12 0C 14 15 0E FF	; Sickle[end-FF]
0x01B4E9|$06:$B4D9:36 19 0E 0A 1B FF	; Spear[end-FF]
0x01B4EF|$06:$B4DF:36 20 18 1B 0D FF	; Sword[end-FF]
0x01B4F5|$06:$B4E5:36 20 18 1B 0D FF	; Sword[end-FF]
0x01B4FB|$06:$B4EB:2B 0A 16 16 0E 1B FF	; Hammer[end-FF]
0x01B502|$06:$B4F2:27 0E 1C 1D 1B 1E 0C 1D 12 18 17 FF	; Destruction[end-FF]
0x01B50E|$06:$B4FE:2E 12 15 15 0E 1B FF	; Killer[end-FF]
0x01B515|$06:$B505:36 20 18 1B 0D FF	; Sword[end-FF]
0x01B51B|$06:$B50B:28 1B 0D 1B 12 0C 14 FF	; Erdrick[end-FF]
0x01B523|$06:$B513:36 20 18 1B 0D FF	; Sword[end-FF]
0x01B529|$06:$B519:FF	; [end-FF]
0x01B52A|$06:$B51A:2B 12 0D 12 17 10 FF	; Hiding[end-FF]
0x01B531|$06:$B521:26 15 18 1D 11 FF	; Cloth[end-FF]
0x01B537|$06:$B527:26 18 0A 1D FF	; Coat[end-FF]
0x01B53C|$06:$B52C:24 1B 16 18 1B FF	; Armor[end-FF]
0x01B542|$06:$B532:30 0A 12 15 FF	; Mail[end-FF]
0x01B547|$06:$B537:24 1B 16 18 1B FF	; Armor[end-FF]
0x01B54D|$06:$B53D:24 1B 16 18 1B FF	; Armor[end-FF]
0x01B553|$06:$B543:24 1B 16 18 1B FF	; Armor[end-FF]
0x01B559|$06:$B549:2A 0A 12 0A FF	; Gaia[end-FF]
0x01B55E|$06:$B54E:28 1B 0D 1B 12 0C 14 FF	; Erdrick[end-FF]
0x01B566|$06:$B556:36 11 12 0E 15 0D FF	; Shield[end-FF]
0x01B56D|$06:$B55D:36 1D 1B 0E 17 10 1D 11 FF	; Strength[end-FF]
0x01B576|$06:$B566:36 11 12 0E 15 0D FF	; Shield[end-FF]
0x01B57D|$06:$B56D:36 11 12 0E 15 0D FF	; Shield[end-FF]
0x01B584|$06:$B574:28 1B 0D 1B 12 0C 14 FF	; Erdrick[end-FF]
; Item list part 2, line 2
; indirect data load target (via $8032)
0x01B58C|$06:$B57C:2B 0A 1D FF	; Hat[end-FF]
0x01B590|$06:$B580:2B 0E 15 16 0E 1D FF	; Helmet[end-FF]
0x01B597|$06:$B587:28 1B 0D 1B 12 0C 14 FF	; Erdrick[end-FF]
0x01B59F|$06:$B58F:28 1B 0D 1B 12 0C 14 FF	; Erdrick[end-FF]
0x01B5A7|$06:$B597:FF	; [end-FF]
0x01B5A8|$06:$B598:29 1B 0A 10 16 0E 17 1D FF	; Fragment[end-FF]
0x01B5B1|$06:$B5A1:35 1E 0B 12 1C 1C FF	; Rubiss[end-FF]
0x01B5B8|$06:$B5A8:30 0A 15 1B 18 1D 11 FF	; Malroth[end-FF]
0x01B5C0|$06:$B5B0:3A 18 1B 15 0D 5F 37 1B 0E 0E FF	; World Tree[end-FF]
0x01B5CB|$06:$B5BB:29 15 1E 1D 0E FF	; Flute[end-FF]
0x01B5D1|$06:$B5C1:35 0A FF	; Ra[end-FF]
0x01B5D4|$06:$B5C4:3C 0A 1B 17 FF	; Yarn[end-FF]
0x01B5D9|$06:$B5C9:2F 18 18 16 FF	; Loom[end-FF]
0x01B5DE|$06:$B5CE:3A 12 17 0D FF	; Wind[end-FF]
0x01B5E3|$06:$B5D3:37 0A 12 15 FF	; Tail[end-FF]
0x01B5E8|$06:$B5D8:25 0A 17 0E FF	; Bane[end-FF]
0x01B5ED|$06:$B5DD:33 18 1D 12 18 17 FF	; Potion[end-FF]
0x01B5F4|$06:$B5E4:26 0A 1B 0D FF	; Card[end-FF]
0x01B5F9|$06:$B5E9:37 12 0C 14 0E 1D FF	; Ticket[end-FF]
0x01B600|$06:$B5F0:3A 0A 1D 0E 1B FF	; Water[end-FF]
0x01B606|$06:$B5F6:1D 11 0E 5F 3A 22 1F 0E 1B 17 FF	; the Wyvern[end-FF]
0x01B611|$06:$B601:FF	; [end-FF]
0x01B612|$06:$B602:2E 0E 22 FF	; Key[end-FF]
0x01B616|$06:$B606:2E 0E 22 FF	; Key[end-FF]
0x01B61A|$06:$B60A:2E 0E 22 FF	; Key[end-FF]
0x01B61E|$06:$B60E:2E 0E 22 FF	; Key[end-FF]
0x01B622|$06:$B612:2B 0E 1B 0B FF	; Herb[end-FF]
0x01B627|$06:$B617:2B 0E 1B 0B FF	; Herb[end-FF]
0x01B62C|$06:$B61C:35 12 17 10 FF	; Ring[end-FF]
0x01B631|$06:$B621:FF	; [end-FF]
0x01B632|$06:$B622:FF	; [end-FF]
0x01B633|$06:$B623:FF	; [end-FF]
; Spell name list
; indirect data load target (via $8026)
0x01B634|$06:$B624:29 12 1B 0E 0B 0A 15 FF	; Firebal[end-FF]
0x01B63C|$06:$B62C:2B 0E 0A 15 FF	; Heal[end-FF]
0x01B641|$06:$B631:36 1D 18 19 1C 19 0E 15 15 FF	; Stopspell[end-FF]
0x01B64B|$06:$B63B:2B 0E 0A 15 16 18 1B 0E FF	; Healmore[end-FF]
0x01B654|$06:$B644:29 12 1B 0E 0B 0A 17 0E FF	; Firebane[end-FF]
0x01B65D|$06:$B64D:2C 17 0C 1B 0E 0A 1C 0E FF	; Increase[end-FF]
0x01B666|$06:$B656:27 0E 0F 0E 0A 1D FF	; Defeat[end-FF]
0x01B66D|$06:$B65D:36 0A 0C 1B 12 0F 12 0C 0E FF	; Sacrifice[end-FF]
0x01B677|$06:$B667:2B 0E 0A 15 FF	; Heal[end-FF]
0x01B67C|$06:$B66C:24 17 1D 12 0D 18 1D 0E FF	; Antidote[end-FF]
0x01B685|$06:$B675:35 0E 1D 1E 1B 17 FF	; Return[end-FF]
0x01B68C|$06:$B67C:32 1E 1D 1C 12 0D 0E FF	; Outside[end-FF]
0x01B694|$06:$B684:2B 0E 0A 15 16 18 1B 0E FF	; Healmore[end-FF]
0x01B69D|$06:$B68D:36 1D 0E 19 10 1E 0A 1B 0D FF	; Stepguard[end-FF]
0x01B6A7|$06:$B697:35 0E 1F 12 1F 0E FF	; Revive[end-FF]
0x01B6AE|$06:$B69E:FF	; [end-FF]
0x01B6AF|$06:$B69F:36 15 0E 0E 19 FF	; Sleep[end-FF]
0x01B6B5|$06:$B6A5:2B 0E 0A 15 16 18 1B 0E FF	; Healmore[end-FF]
0x01B6BE|$06:$B6AE:2C 17 0F 0E 1B 17 18 1C FF	; Infernos[end-FF]
0x01B6C7|$06:$B6B7:27 0E 0F 0E 17 0C 0E FF	; Defence[end-FF]
0x01B6CF|$06:$B6BF:36 1E 1B 1B 18 1E 17 0D FF	; Surround[end-FF]
0x01B6D8|$06:$B6C8:2B 0E 0A 15 0A 15 15 FF	; Healall[end-FF]
0x01B6E0|$06:$B6D0:28 21 19 15 18 0D 0E 1D FF	; Explodet[end-FF]
0x01B6E9|$06:$B6D9:26 11 0A 17 0C 0E FF	; Chance[end-FF]
0x01B6F0|$06:$B6E0:2B 0E 0A 15 16 18 1B 0E FF	; Healmore[end-FF]
0x01B6F9|$06:$B6E9:35 0E 19 0E 15 FF	; Repel[end-FF]
0x01B6FF|$06:$B6EF:24 17 1D 12 0D 18 1D 0E FF	; Antidote[end-FF]
0x01B708|$06:$B6F8:2B 0E 0A 15 0A 15 15 FF	; Healall[end-FF]
0x01B710|$06:$B700:32 1E 1D 1C 12 0D 0E FF	; Outside[end-FF]
0x01B718|$06:$B708:36 1D 0E 19 10 1E 0A 1B 0D FF	; Stepguard[end-FF]
0x01B722|$06:$B712:32 19 0E 17 FF	; Open[end-FF]
0x01B727|$06:$B717:FF	; [end-FF]
; Monster list part 1, line 1
; indirect data load target (via $8028)
0x01B728|$06:$B718:36 15 12 16 0E FF	; Slime[end-FF]
0x01B72E|$06:$B71E:25 12 10 FF	; Big[end-FF]
0x01B732|$06:$B722:2C 1B 18 17 FF	; Iron[end-FF]
0x01B737|$06:$B727:27 1B 0A 14 0E 0E FF	; Drakee[end-FF]
0x01B73E|$06:$B72E:3A 12 15 0D FF	; Wild[end-FF]
0x01B743|$06:$B733:2B 0E 0A 15 0E 1B FF	; Healer[end-FF]
0x01B74A|$06:$B73A:2A 11 18 1C 1D FF	; Ghost[end-FF]
0x01B750|$06:$B740:25 0A 0B 0B 15 0E FF	; Babble[end-FF]
0x01B757|$06:$B747:24 1B 16 22 FF	; Army[end-FF]
0x01B75C|$06:$B74C:30 0A 10 12 0C 12 0A 17 FF	; Magician[end-FF]
0x01B765|$06:$B755:25 12 10 FF	; Big[end-FF]
0x01B769|$06:$B759:25 12 10 FF	; Big[end-FF]
0x01B76D|$06:$B75D:30 0A 10 12 0C FF	; Magic[end-FF]
0x01B773|$06:$B763:30 0A 10 12 0D 1B 0A 14 0E 0E FF	; Magidrakee[end-FF]
0x01B77E|$06:$B76E:26 0E 17 1D 12 19 18 0D FF	; Centipod[end-FF]
0x01B787|$06:$B777:30 0A 17 5F 32 67 FF	; Man O'[end-FF]
0x01B78E|$06:$B77E:2F 12 23 0A 1B 0D FF	; Lizard[end-FF]
0x01B795|$06:$B785:3D 18 16 0B 12 0E FF	; Zombie[end-FF]
0x01B79C|$06:$B78C:36 16 18 14 0E FF	; Smoke[end-FF]
0x01B7A2|$06:$B792:2A 11 18 1C 1D FF	; Ghost[end-FF]
0x01B7A8|$06:$B798:25 0A 0B 18 18 17 FF	; Baboon[end-FF]
0x01B7AF|$06:$B79F:26 0A 1B 17 12 1F 18 10 FF	; Carnivog[end-FF]
0x01B7B8|$06:$B7A8:30 0E 10 0A 19 0E 0D 0E FF	; Megapede[end-FF]
0x01B7C1|$06:$B7B1:36 0E 0A FF	; Sea[end-FF]
0x01B7C5|$06:$B7B5:30 0E 0D 1E 1C 0A FF	; Medusa[end-FF]
0x01B7CC|$06:$B7BC:28 17 0C 11 0A 17 1D 0E 1B FF	; Enchanter[end-FF]
0x01B7D6|$06:$B7C6:30 1E 0D FF	; Mud[end-FF]
0x01B7DA|$06:$B7CA:30 0A 10 12 0C FF	; Magic[end-FF]
0x01B7E0|$06:$B7D0:27 0E 16 12 10 11 18 1C 1D FF	; Demighost[end-FF]
0x01B7EA|$06:$B7DA:2A 1B 0E 16 15 12 17 FF	; Gremlin[end-FF]
0x01B7F2|$06:$B7E2:33 18 12 1C 18 17 FF	; Poison[end-FF]
0x01B7F9|$06:$B7E9:30 1E 16 16 22 FF	; Mummy[end-FF]
0x01B7FF|$06:$B7EF:2A 18 1B 10 18 17 FF	; Gorgon[end-FF]
0x01B806|$06:$B7F6:36 0A 0B 0E 1B FF	; Saber[end-FF]
0x01B80C|$06:$B7FC:27 1B 0A 10 18 17 FF	; Dragon[end-FF]
0x01B813|$06:$B803:37 12 1D 0A 17 FF	; Titan[end-FF]
0x01B819|$06:$B809:38 17 0D 0E 0A 0D FF	; Undead[end-FF]
0x01B820|$06:$B810:25 0A 1C 12 15 12 1C 14 FF	; Basilisk[end-FF]
0x01B829|$06:$B819:2A 18 18 19 12 FF	; Goopi[end-FF]
0x01B82F|$06:$B81F:32 1B 0C FF	; Orc[end-FF]
0x01B833|$06:$B823:33 1E 19 19 0E 1D FF	; Puppet[end-FF]
0x01B83A|$06:$B82A:30 1E 16 16 22 FF	; Mummy[end-FF]
0x01B840|$06:$B830:28 1F 12 15 FF	; Evil[end-FF]
0x01B845|$06:$B835:2A 0A 1C FF	; Gas[end-FF]
0x01B849|$06:$B839:2B 18 1B 14 FF	; Hork[end-FF]
0x01B84E|$06:$B83E:2B 0A 20 14 FF	; Hawk[end-FF]
0x01B853|$06:$B843:36 18 1B 0C 0E 1B 0E 1B FF	; Sorcerer[end-FF]
0x01B85C|$06:$B84C:30 0E 1D 0A 15 FF	; Metal[end-FF]
0x01B862|$06:$B852:2B 1E 17 1D 0E 1B FF	; Hunter[end-FF]
0x01B869|$06:$B859:28 1F 12 15 FF	; Evil[end-FF]
; Monster list part 2, line 1
; indirect data load target (via $8034)
0x01B86E|$06:$B85E:2B 12 0B 0A 0B 0A 17 10 18 FF	; Hibabango[end-FF]
0x01B878|$06:$B868:2A 1B 0A 0B 18 18 19 12 FF	; Graboopi[end-FF]
0x01B881|$06:$B871:2A 18 15 0D FF	; Gold[end-FF]
0x01B886|$06:$B876:28 1F 12 15 FF	; Evil[end-FF]
0x01B88B|$06:$B87B:2A 11 18 1E 15 FF	; Ghoul[end-FF]
0x01B891|$06:$B881:39 0A 16 19 12 1B 1E 1C FF	; Vampirus[end-FF]
0x01B89A|$06:$B88A:30 0E 10 0A FF	; Mega[end-FF]
0x01B89F|$06:$B88F:36 0A 0B 0E 1B FF	; Saber[end-FF]
0x01B8A5|$06:$B895:30 0E 1D 0A 15 FF	; Metal[end-FF]
0x01B8AB|$06:$B89B:32 23 20 0A 1B 10 FF	; Ozwarg[end-FF]
0x01B8B2|$06:$B8A2:27 0A 1B 14 FF	; Dark[end-FF]
0x01B8B7|$06:$B8A7:2A 0A 1B 10 18 22 15 0E FF	; Gargoyle[end-FF]
0x01B8C0|$06:$B8B0:32 1B 0C FF	; Orc[end-FF]
0x01B8C4|$06:$B8B4:30 0A 10 12 0C FF	; Magic[end-FF]
0x01B8CA|$06:$B8BA:25 0E 1B 1C 0E 1B 14 0E 1B FF	; Berserker[end-FF]
0x01B8D4|$06:$B8C4:30 0E 1D 0A 15 FF	; Metal[end-FF]
0x01B8DA|$06:$B8CA:2B 0A 1B 10 18 17 67 1C FF	; Hargon's[end-FF]
0x01B8E3|$06:$B8D3:26 22 0C 15 18 19 1C FF	; Cyclops[end-FF]
0x01B8EB|$06:$B8DB:24 1D 1D 0A 0C 14 0B 18 1D FF	; Attackbot[end-FF]
0x01B8F5|$06:$B8E5:2A 1B 0E 0E 17 FF	; Green[end-FF]
0x01B8FB|$06:$B8EB:30 0A 0C 0E FF	; Mace[end-FF]
0x01B900|$06:$B8F0:29 15 0A 16 0E FF	; Flame[end-FF]
0x01B906|$06:$B8F6:36 12 15 1F 0E 1B FF	; Silver[end-FF]
0x01B90D|$06:$B8FD:25 15 12 23 23 0A 1B 0D FF	; Blizzard[end-FF]
0x01B916|$06:$B906:2A 12 0A 17 1D FF	; Giant[end-FF]
0x01B91C|$06:$B90C:2A 18 15 0D FF	; Gold[end-FF]
0x01B921|$06:$B911:25 1E 15 15 20 18 17 10 FF	; Bullwong[end-FF]
0x01B92A|$06:$B91A:24 1D 15 0A 1C FF	; Atlas[end-FF]
0x01B930|$06:$B920:25 0A 23 1E 23 1E FF	; Bazuzu[end-FF]
0x01B937|$06:$B927:3D 0A 1B 15 18 21 FF	; Zarlox[end-FF]
0x01B93E|$06:$B92E:2B 0A 1B 10 18 17 FF	; Hargon[end-FF]
0x01B945|$06:$B935:30 0A 15 1B 18 1D 11 FF	; Malroth[end-FF]
0x01B94D|$06:$B93D:28 17 0E 16 12 0E 1C FF	; Enemies[end-FF]
; Monster list part 1, line 2
; indirect data load target (via $802A)
0x01B955|$06:$B945:FF	; [end-FF]
0x01B956|$06:$B946:36 15 1E 10 FF	; Slug[end-FF]
0x01B95B|$06:$B94B:24 17 1D FF	; Ant[end-FF]
0x01B95F|$06:$B94F:FF	; [end-FF]
0x01B960|$06:$B950:30 18 1E 1C 0E FF	; Mouse[end-FF]
0x01B966|$06:$B956:FF	; [end-FF]
0x01B967|$06:$B957:30 18 1E 1C 0E FF	; Mouse[end-FF]
0x01B96D|$06:$B95D:FF	; [end-FF]
0x01B96E|$06:$B95E:24 17 1D FF	; Ant[end-FF]
0x01B972|$06:$B962:FF	; [end-FF]
0x01B973|$06:$B963:35 0A 1D FF	; Rat[end-FF]
0x01B977|$06:$B967:26 18 0B 1B 0A FF	; Cobra[end-FF]
0x01B97D|$06:$B96D:24 17 1D FF	; Ant[end-FF]
0x01B981|$06:$B971:FF	; [end-FF]
0x01B982|$06:$B972:FF	; [end-FF]
0x01B983|$06:$B973:3A 0A 1B FF	; War[end-FF]
0x01B987|$06:$B977:29 15 22 FF	; Fly[end-FF]
0x01B98B|$06:$B97B:FF	; [end-FF]
0x01B98C|$06:$B97C:FF	; [end-FF]
0x01B98D|$06:$B97D:35 0A 1D FF	; Rat[end-FF]
0x01B991|$06:$B981:FF	; [end-FF]
0x01B992|$06:$B982:FF	; [end-FF]
0x01B993|$06:$B983:FF	; [end-FF]
0x01B994|$06:$B984:36 15 1E 10 FF	; Slug[end-FF]
0x01B999|$06:$B989:25 0A 15 15 FF	; Ball[end-FF]
0x01B99E|$06:$B98E:FF	; [end-FF]
0x01B99F|$06:$B98F:30 0A 17 FF	; Man[end-FF]
0x01B9A3|$06:$B993:25 0A 0B 18 18 17 FF	; Baboon[end-FF]
0x01B9AA|$06:$B99A:FF	; [end-FF]
0x01B9AB|$06:$B99B:FF	; [end-FF]
0x01B9AC|$06:$B99C:2F 12 15 22 FF	; Lily[end-FF]
0x01B9B1|$06:$B9A1:30 0A 17 FF	; Man[end-FF]
0x01B9B5|$06:$B9A5:FF	; [end-FF]
0x01B9B6|$06:$B9A6:37 12 10 0E 1B FF	; Tiger[end-FF]
0x01B9BC|$06:$B9AC:29 15 22 FF	; Fly[end-FF]
0x01B9C0|$06:$B9B0:37 1B 0E 0E FF	; Tree[end-FF]
0x01B9C5|$06:$B9B5:FF	; [end-FF]
0x01B9C6|$06:$B9B6:FF	; [end-FF]
0x01B9C7|$06:$B9B7:FF	; [end-FF]
0x01B9C8|$06:$B9B8:FF	; [end-FF]
0x01B9C9|$06:$B9B9:30 0A 17 FF	; Man[end-FF]
0x01B9CD|$06:$B9BD:FF	; [end-FF]
0x01B9CE|$06:$B9BE:37 1B 0E 0E FF	; Tree[end-FF]
0x01B9D3|$06:$B9C3:FF	; [end-FF]
0x01B9D4|$06:$B9C4:FF	; [end-FF]
0x01B9D5|$06:$B9C5:30 0A 17 FF	; Man[end-FF]
0x01B9D9|$06:$B9C9:FF	; [end-FF]
0x01B9DA|$06:$B9CA:36 15 12 16 0E FF	; Slime[end-FF]
0x01B9E0|$06:$B9D0:FF	; [end-FF]
0x01B9E1|$06:$B9D1:28 22 0E FF	; Eye[end-FF]
; Monster list part 2, line 2
; indirect data load target (via $8036)
0x01B9E5|$06:$B9D5:FF	; [end-FF]
0x01B9E6|$06:$B9D6:FF	; [end-FF]
0x01B9E7|$06:$B9D7:32 1B 0C FF	; Orc[end-FF]
0x01B9EB|$06:$B9DB:26 15 18 20 17 FF	; Clown[end-FF]
0x01B9F1|$06:$B9E1:FF	; [end-FF]
0x01B9F2|$06:$B9E2:FF	; [end-FF]
0x01B9F3|$06:$B9E3:2E 17 12 10 11 1D FF	; Knight[end-FF]
0x01B9FA|$06:$B9EA:2F 12 18 17 FF	; Lion[end-FF]
0x01B9FF|$06:$B9EF:2B 1E 17 1D 0E 1B FF	; Hunter[end-FF]
0x01BA06|$06:$B9F6:FF	; [end-FF]
0x01BA07|$06:$B9F7:28 22 0E FF	; Eye[end-FF]
0x01BA0B|$06:$B9FB:FF	; [end-FF]
0x01BA0C|$06:$B9FC:2E 12 17 10 FF	; King[end-FF]
0x01BA11|$06:$BA01:39 0A 16 19 12 1B 1E 1C FF	; Vampirus[end-FF]
0x01BA1A|$06:$BA0A:FF	; [end-FF]
0x01BA1B|$06:$BA0B:25 0A 0B 0B 15 0E FF	; Babble[end-FF]
0x01BA22|$06:$BA12:2E 17 12 10 11 1D FF	; Knight[end-FF]
0x01BA29|$06:$BA19:FF	; [end-FF]
0x01BA2A|$06:$BA1A:FF	; [end-FF]
0x01BA2B|$06:$BA1B:27 1B 0A 10 18 17 FF	; Dragon[end-FF]
0x01BA32|$06:$BA22:30 0A 1C 1D 0E 1B FF	; Master[end-FF]
0x01BA39|$06:$BA29:FF	; [end-FF]
0x01BA3A|$06:$BA2A:25 0A 1D 0B 18 18 17 FF	; Batboon[end-FF]
0x01BA42|$06:$BA32:FF	; [end-FF]
0x01BA43|$06:$BA33:FF	; [end-FF]
0x01BA44|$06:$BA34:25 0A 1D 0B 18 18 17 FF	; Batboon[end-FF]
0x01BA4C|$06:$BA3C:FF	; [end-FF]
0x01BA4D|$06:$BA3D:FF	; [end-FF]
0x01BA4E|$06:$BA3E:FF	; [end-FF]
0x01BA4F|$06:$BA3F:FF	; [end-FF]
0x01BA50|$06:$BA40:FF	; [end-FF]
0x01BA51|$06:$BA41:FF	; [end-FF]
0x01BA52|$06:$BA42:FF	; [end-FF]
; tiles for redrawing the part of the main COMMAND menu obscured by the EQUIP sub-menu when the EQUIP sub-menu is closed; (only?) read during battle where there is no main COMMAND menu
; completely useless?
; indirect data load target (via $802C)
0x01BA53|$06:$BA43:24 31 5F 5F
0x01BA57|$06:$BA47:27 77 5F 5F
0x01BA5B|$06:$BA4B:77 77 5F 5F
0x01BA5F|$06:$BA4F:77 7C 5F 5F
0x01BA63|$06:$BA53:5F 5F 5F 5F
0x01BA67|$06:$BA57:36 33 5F 5F
0x01BA6B|$06:$BA5B:28 2F 5F 5F
0x01BA6F|$06:$BA5F:2F 7B 5F 7B
0x01BA73|$06:$BA63:5F 5F 5F 5F
0x01BA77|$06:$BA67:2C 37 5F 5F
0x01BA7B|$06:$BA6B:28 30 5F 5F
0x01BA7F|$06:$BA6F:5F 7B 5F 7B
0x01BA83|$06:$BA73:5F 5F 7D 7D
0x01BA87|$06:$BA77:28 34 7D 7D
0x01BA8B|$06:$BA7B:38 2C 7D 7D
0x01BA8F|$06:$BA7F:33 7B 7D 7E
; indirect data load target (via $802E)
0x01BA93|$06:$BA83:77 77 77 77
0x01BA97|$06:$BA87:77 77 77 7C
0x01BA9B|$06:$BA8B:79 77 77 77
0x01BA9F|$06:$BA8F:77 77 7C 7B
0x01BAA3|$06:$BA93:76 5F 5F 5F
0x01BAA7|$06:$BA97:5F 5F 7B 7B
0x01BAAB|$06:$BA9B:7A 7D 7D 7D
0x01BAAF|$06:$BA9F:7D 7D 7E 7B

; data -> code
; indirect control flow target (via $803A)
0x01BAB3|$06:$BAA3:A9 05   	LDA #$05   
0x01BAB5|$06:$BAA5:85 94   	STA $94    	; return bank for various function calls, doubles as index of selected option for multiple-choice menus
0x01BAB7|$06:$BAA7:A5 31   	LDA $31    	; current map ID
0x01BAB9|$06:$BAA9:C9 03   	CMP #$03   	; Map ID #$03: Midenhall 1F
0x01BABB|$06:$BAAB:F0 01   	BEQ $BAAE  
; control flow target (from $BAB3, $BAB9, $BABF, $BAC3)
0x01BABD|$06:$BAAD:60      	RTS        

; control flow target (from $BAAB)
0x01BABE|$06:$BAAE:AD 49 05	LDA $0549  	; NPC #$01 sprite ID
0x01BAC1|$06:$BAB1:C9 FF   	CMP #$FF   
0x01BAC3|$06:$BAB3:F0 F8   	BEQ $BAAD  
0x01BAC5|$06:$BAB5:A5 17   	LDA $17    	; current map Y-pos (1)
0x01BAC7|$06:$BAB7:C9 05   	CMP #$05   
0x01BAC9|$06:$BAB9:D0 F2   	BNE $BAAD  
0x01BACB|$06:$BABB:A5 16   	LDA $16    	; current map X-pos (1)
0x01BACD|$06:$BABD:C9 0E   	CMP #$0E   
0x01BACF|$06:$BABF:90 EC   	BCC $BAAD  
0x01BAD1|$06:$BAC1:C9 11   	CMP #$11   
0x01BAD3|$06:$BAC3:B0 E8   	BCS $BAAD  
0x01BAD5|$06:$BAC5:AD 4B 05	LDA $054B  	; NPC #$01 scripted motion high byte
0x01BAD8|$06:$BAC8:C9 7F   	CMP #$7F   
0x01BADA|$06:$BACA:D0 09   	BNE $BAD5  
; call to code in a different bank ($0F:$CCF1)
0x01BADC|$06:$BACC:20 F1 CC	JSR $CCF1  	; set up scripted motion variables based on next 4 bytes (low 5 bits = NPC index, NPC index + 1's motion + direction byte?, 2-byte pointer to motion script)

; code -> data
; indirect data load target
0x01BADF|$06:$BACF:82
; indirect data load target
0x01BAE0|$06:$BAD0:21
; indirect data load target
0x01BAE1|$06:$BAD1:D5 80	; $07:$80D5; motion script for Moonbrooke, ending part 1 (turned)

; data -> code
0x01BAE3|$06:$BAD3:90 0A   	BCC $BADF  
; control flow target (from $BACA)
; call to code in a different bank ($0F:$CCF1)
0x01BAE5|$06:$BAD5:20 F1 CC	JSR $CCF1  	; set up scripted motion variables based on next 4 bytes (low 5 bits = NPC index, NPC index + 1's motion + direction byte?, 2-byte pointer to motion script)

; code -> data
; indirect data load target
0x01BAE8|$06:$BAD8:82
; indirect data load target
0x01BAE9|$06:$BAD9:21
; indirect data load target
0x01BAEA|$06:$BADA:DB 80	; $07:$80DB; motion script for Cannock, ending part 1

; data -> code
0x01BAEC|$06:$BADC:EE 65 05	INC $0565  	; NPC #$05 Y-pos
; control flow target (from $BAD3)
; call to code in a different bank ($0F:$CCF1)
0x01BAEF|$06:$BADF:20 F1 CC	JSR $CCF1  	; set up scripted motion variables based on next 4 bytes (low 5 bits = NPC index, NPC index + 1's motion + direction byte?, 2-byte pointer to motion script)

; code -> data
; indirect data load target
0x01BAF2|$06:$BAE2:81
; indirect data load target
0x01BAF3|$06:$BAE3:21
; indirect data load target
0x01BAF4|$06:$BAE4:CF 80	; $07:$80CF; motion script for Moonbrooke, ending part 1 (not turned)

; data -> code
0x01BAF6|$06:$BAE6:A5 16   	LDA $16    	; current map X-pos (1)
0x01BAF8|$06:$BAE8:C9 0E   	CMP #$0E   
0x01BAFA|$06:$BAEA:D0 08   	BNE $BAF4  
0x01BAFC|$06:$BAEC:EE 5A 05	INC $055A  	; NPC #$03 scripted motion low byte
0x01BAFF|$06:$BAEF:CE 5C 05	DEC $055C  	; NPC #$04 X-pos
0x01BB02|$06:$BAF2:D0 0A   	BNE $BAFE  
; control flow target (from $BAEA)
0x01BB04|$06:$BAF4:C9 10   	CMP #$10   
0x01BB06|$06:$BAF6:D0 06   	BNE $BAFE  
0x01BB08|$06:$BAF8:CE 5A 05	DEC $055A  	; NPC #$03 scripted motion low byte
0x01BB0B|$06:$BAFB:EE 5C 05	INC $055C  	; NPC #$04 X-pos
; control flow target (from $BAF2, $BAF6)
0x01BB0E|$06:$BAFE:A5 16   	LDA $16    	; current map X-pos (1)
0x01BB10|$06:$BB00:18      	CLC        
0x01BB11|$06:$BB01:6D 44 05	ADC $0544  	; NPC #$01 ?
0x01BB14|$06:$BB04:18      	CLC        
0x01BB15|$06:$BB05:6D 4C 05	ADC $054C  	; NPC #$02 ?
0x01BB18|$06:$BB08:C9 0E   	CMP #$0E   
0x01BB1A|$06:$BB0A:D0 08   	BNE $BB14  
0x01BB1C|$06:$BB0C:CE 62 05	DEC $0562  	; NPC #$04 scripted motion low byte
0x01BB1F|$06:$BB0F:CE 64 05	DEC $0564  	; NPC #$05 X-pos
0x01BB22|$06:$BB12:D0 0A   	BNE $BB1E  
; control flow target (from $BB0A)
0x01BB24|$06:$BB14:C9 10   	CMP #$10   
0x01BB26|$06:$BB16:D0 06   	BNE $BB1E  
0x01BB28|$06:$BB18:EE 62 05	INC $0562  	; NPC #$04 scripted motion low byte
0x01BB2B|$06:$BB1B:EE 64 05	INC $0564  	; NPC #$05 X-pos
; control flow target (from $BB12, $BB16)
0x01BB2E|$06:$BB1E:A9 00   	LDA #$00   
0x01BB30|$06:$BB20:A8      	TAY        
; control flow target (from $BB27)
0x01BB31|$06:$BB21:99 42 05	STA $0542,Y	; NPC #$00 ?
0x01BB34|$06:$BB24:C8      	INY        
0x01BB35|$06:$BB25:C0 10   	CPY #$10   
0x01BB37|$06:$BB27:D0 F8   	BNE $BB21  
0x01BB39|$06:$BB29:A9 FF   	LDA #$FF   
0x01BB3B|$06:$BB2B:8D 49 05	STA $0549  	; NPC #$01 sprite ID
0x01BB3E|$06:$BB2E:8D 51 05	STA $0551  	; NPC #$02 sprite ID
0x01BB41|$06:$BB31:A2 01   	LDX #$01   
0x01BB43|$06:$BB33:8E 61 05	STX $0561  	; NPC #$04 sprite ID
0x01BB46|$06:$BB36:E8      	INX        
0x01BB47|$06:$BB37:8E 69 05	STX $0569  	; NPC #$05 sprite ID
; call to code in a different bank ($0F:$CCD2)
0x01BB4A|$06:$BB3A:4C D2 CC	JMP $CCD2  	; execute scripted motion

; indirect control flow target (via $8038)
; call to code in a different bank ($0F:$CD26)
0x01BB4D|$06:$BB3D:20 26 CD	JSR $CD26  	; set Z if your current map position is the (X, Y) co-ordinates given by the next 2 bytes

; code -> data
; indirect data load target
0x01BB50|$06:$BB40:0F
; indirect data load target
0x01BB51|$06:$BB41:03

; data -> code
0x01BB52|$06:$BB42:F0 01   	BEQ $BB45  
0x01BB54|$06:$BB44:60      	RTS        

; control flow target (from $BB42)
0x01BB55|$06:$BB45:A9 FF   	LDA #$FF   
0x01BB57|$06:$BB47:85 35   	STA $35    	; flag indicating whether any menu is currently open
0x01BB59|$06:$BB49:A9 46   	LDA #$46   
0x01BB5B|$06:$BB4B:8D 2C 06	STA $062C  	; current battle message delay
; call to code in a different bank ($0F:$EB76)
0x01BB5E|$06:$BB4E:20 76 EB	JSR $EB76  	; open menu specified by next byte

; code -> data
; indirect data load target
0x01BB61|$06:$BB51:04	; Menu ID #$04: Dialogue window

; data -> code
0x01BB62|$06:$BB52:A9 00   	LDA #$00   
; call to code in a different bank ($0F:$FC50)
0x01BB64|$06:$BB54:20 50 FC	JSR $FC50  	; print name of hero given by low 2 bits of A to $6119, terminated by #$FA
; call to code in a different bank ($0F:$FA2E)
0x01BB67|$06:$BB57:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x01BB6A|$06:$BB5A:B5	; String ID #$01B5: ‘[name], thou art of the line of Erdrick and have proven thy heritage by thy deeds[.’][wait][end-FC]

; data -> code
; control flow target (from $BB6B)
; call to code in a different bank ($0F:$FA2E)
0x01BB6B|$06:$BB5B:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x01BB6E|$06:$BB5E:B6	; String ID #$01B6: ‘Now is the time for thee to take the throne. Will it be so?’[FD][FD][end-FC]

; data -> code
; call to code in a different bank ($0F:$EB76)
0x01BB6F|$06:$BB5F:20 76 EB	JSR $EB76  	; open menu specified by next byte

; code -> data
; indirect data load target
0x01BB72|$06:$BB62:19	; Menu ID #$19: General menu: YES/NO

; data -> code
0x01BB73|$06:$BB63:C9 00   	CMP #$00   
0x01BB75|$06:$BB65:F0 07   	BEQ $BB6E  
; call to code in a different bank ($0F:$FA2E)
0x01BB77|$06:$BB67:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x01BB7A|$06:$BB6A:B7	; String ID #$01B7: ‘Be careful, [name]. Do not be selfish[.’][wait][end-FC]

; data -> code
0x01BB7B|$06:$BB6B:4C 5B BB	JMP $BB5B  

; control flow target (from $BB65)
0x01BB7E|$06:$BB6E:A9 01   	LDA #$01   
; call to code in a different bank ($0F:$FC50)
0x01BB80|$06:$BB70:20 50 FC	JSR $FC50  	; print name of hero given by low 2 bits of A to $6119, terminated by #$FA
; call to code in a different bank ($0F:$FA2E)
0x01BB83|$06:$BB73:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x01BB86|$06:$BB76:B8	; String ID #$01B8: ‘Hail all to the new monarch of Midenhall!’[wait][line]‘Now, [name], Prince of Cannock, come forth[.’][wait][end-FC]

; data -> code
0x01BB87|$06:$BB77:A9 02   	LDA #$02   
; call to code in a different bank ($0F:$FC50)
0x01BB89|$06:$BB79:20 50 FC	JSR $FC50  	; print name of hero given by low 2 bits of A to $6119, terminated by #$FA
; call to code in a different bank ($0F:$FA2E)
0x01BB8C|$06:$BB7C:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x01BB8F|$06:$BB7F:BC	; String ID #$01BC: ‘[name], Princess of Moonbrooke, come forth[.’][end-FC]

; data -> code
; call to code in a different bank ($0F:$D0F5)
0x01BB90|$06:$BB80:20 F5 D0	JSR $D0F5  	; wait for a while and then wipe menu regions #$03, #$00, and #$01
; call to code in a different bank ($0F:$CCF1)
0x01BB93|$06:$BB83:20 F1 CC	JSR $CCF1  	; set up scripted motion variables based on next 4 bytes (low 5 bits = NPC index, NPC index + 1's motion + direction byte?, 2-byte pointer to motion script)

; code -> data
; indirect data load target
0x01BB96|$06:$BB86:85
; indirect data load target
0x01BB97|$06:$BB87:20
; indirect data load target
0x01BB98|$06:$BB88:BE 80	; $07:$80BE; motion script for top 2 guards, ending part 2

; data -> code
; call to code in a different bank ($0F:$CCF1)
0x01BB9A|$06:$BB8A:20 F1 CC	JSR $CCF1  	; set up scripted motion variables based on next 4 bytes (low 5 bits = NPC index, NPC index + 1's motion + direction byte?, 2-byte pointer to motion script)

; code -> data
; indirect data load target
0x01BB9D|$06:$BB8D:84
; indirect data load target
0x01BB9E|$06:$BB8E:20
; indirect data load target
0x01BB9F|$06:$BB8F:BE 80	; $07:$80BE; motion script for top 2 guards, ending part 2

; data -> code
; call to code in a different bank ($0F:$CCE7)
0x01BBA1|$06:$BB91:20 E7 CC	JSR $CCE7  
0x01BBA4|$06:$BB94:20 38 BC	JSR $BC38  
; call to code in a different bank ($0F:$CCF1)
0x01BBA7|$06:$BB97:20 F1 CC	JSR $CCF1  	; set up scripted motion variables based on next 4 bytes (low 5 bits = NPC index, NPC index + 1's motion + direction byte?, 2-byte pointer to motion script)

; code -> data
; indirect data load target
0x01BBAA|$06:$BB9A:82
; indirect data load target
0x01BBAB|$06:$BB9B:20
; indirect data load target
0x01BBAC|$06:$BB9C:55 80	; $07:$8055; motion script for Cannock and Moonbrooke, ending part 3, dog in Zahan, triggered from right

; data -> code
; call to code in a different bank ($0F:$CCF1)
0x01BBAE|$06:$BB9E:20 F1 CC	JSR $CCF1  	; set up scripted motion variables based on next 4 bytes (low 5 bits = NPC index, NPC index + 1's motion + direction byte?, 2-byte pointer to motion script)

; code -> data
; indirect data load target
0x01BBB1|$06:$BBA1:81
; indirect data load target
0x01BBB2|$06:$BBA2:20
; indirect data load target
0x01BBB3|$06:$BBA3:55 80	; $07:$8055; motion script for Cannock and Moonbrooke, ending part 3, dog in Zahan, triggered from right

; data -> code
; call to code in a different bank ($0F:$CCE7)
0x01BBB5|$06:$BBA5:20 E7 CC	JSR $CCE7  
0x01BBB8|$06:$BBA8:20 38 BC	JSR $BC38  
; call to code in a different bank ($0F:$EB76)
0x01BBBB|$06:$BBAB:20 76 EB	JSR $EB76  	; open menu specified by next byte

; code -> data
; indirect data load target
0x01BBBE|$06:$BBAE:04	; Menu ID #$04: Dialogue window

; data -> code
; call to code in a different bank ($0F:$FA2E)
0x01BBBF|$06:$BBAF:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x01BBC2|$06:$BBB2:B9	; String ID #$01B9: ‘This charge I lay on the three heroes, that for evermore they guard against evil[.’][end-FC]

; data -> code
; call to code in a different bank ($0F:$D0F5)
0x01BBC3|$06:$BBB3:20 F5 D0	JSR $D0F5  	; wait for a while and then wipe menu regions #$03, #$00, and #$01
0x01BBC6|$06:$BBB6:A0 38   	LDY #$38   
; control flow target (from $BBC2)
0x01BBC8|$06:$BBB8:A9 02   	LDA #$02   
0x01BBCA|$06:$BBBA:99 78 05	STA $0578,Y	; NPC #$07 motion nybble + direction nybble
0x01BBCD|$06:$BBBD:98      	TYA        
0x01BBCE|$06:$BBBE:38      	SEC        
0x01BBCF|$06:$BBBF:E9 08   	SBC #$08   
0x01BBD1|$06:$BBC1:A8      	TAY        
0x01BBD2|$06:$BBC2:10 F4   	BPL $BBB8  
; call to code in a different bank ($0F:$CF64)
0x01BBD4|$06:$BBC4:20 64 CF	JSR $CF64  
0x01BBD7|$06:$BBC7:20 38 BC	JSR $BC38  
; call to code in a different bank ($0F:$EB76)
0x01BBDA|$06:$BBCA:20 76 EB	JSR $EB76  	; open menu specified by next byte

; code -> data
; indirect data load target
0x01BBDD|$06:$BBCD:04	; Menu ID #$04: Dialogue window

; data -> code
0x01BBDE|$06:$BBCE:A9 00   	LDA #$00   
; call to code in a different bank ($0F:$FC50)
0x01BBE0|$06:$BBD0:20 50 FC	JSR $FC50  	; print name of hero given by low 2 bits of A to $6119, terminated by #$FA
; call to code in a different bank ($0F:$FA2E)
0x01BBE3|$06:$BBD3:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x01BBE6|$06:$BBD6:BA	; String ID #$01BA: ‘Three cheers for the new monarch of Midenhall![line]Hip-hip-hooray!’[end-FC]

; data -> code
; call to code in a different bank ($0F:$D0F5)
0x01BBE7|$06:$BBD7:20 F5 D0	JSR $D0F5  	; wait for a while and then wipe menu regions #$03, #$00, and #$01
0x01BBEA|$06:$BBDA:A9 01   	LDA #$01   
0x01BBEC|$06:$BBDC:8D 68 05	STA $0568  	; NPC #$05 motion nybble + direction nybble
0x01BBEF|$06:$BBDF:20 2D BC	JSR $BC2D  
0x01BBF2|$06:$BBE2:A9 02   	LDA #$02   
0x01BBF4|$06:$BBE4:8D 68 05	STA $0568  	; NPC #$05 motion nybble + direction nybble
0x01BBF7|$06:$BBE7:20 2D BC	JSR $BC2D  
0x01BBFA|$06:$BBEA:A2 0A   	LDX #$0A   
; call to code in a different bank ($0F:$C1EE)
0x01BBFC|$06:$BBEC:20 EE C1	JSR $C1EE  	; set $6007 = #$00, set $00 = #$01, wait for X interrupts, set $00 = #$FF
0x01BBFF|$06:$BBEF:A9 03   	LDA #$03   
0x01BC01|$06:$BBF1:8D 60 05	STA $0560  	; NPC #$04 motion nybble + direction nybble
0x01BC04|$06:$BBF4:20 2D BC	JSR $BC2D  
0x01BC07|$06:$BBF7:A9 02   	LDA #$02   
0x01BC09|$06:$BBF9:8D 60 05	STA $0560  	; NPC #$04 motion nybble + direction nybble
0x01BC0C|$06:$BBFC:20 2D BC	JSR $BC2D  
0x01BC0F|$06:$BBFF:20 34 BC	JSR $BC34  
0x01BC12|$06:$BC02:A9 01   	LDA #$01   
0x01BC14|$06:$BC04:8D 40 05	STA $0540  	; NPC #$00 ? + direction nybble
0x01BC17|$06:$BC07:20 2D BC	JSR $BC2D  
0x01BC1A|$06:$BC0A:A9 02   	LDA #$02   
0x01BC1C|$06:$BC0C:8D 40 05	STA $0540  	; NPC #$00 ? + direction nybble
0x01BC1F|$06:$BC0F:20 2D BC	JSR $BC2D  
0x01BC22|$06:$BC12:20 34 BC	JSR $BC34  
0x01BC25|$06:$BC15:A9 19   	LDA #$19   	; Music ID #$19: end credits BGM
; call to code in a different bank ($0F:$C561)
0x01BC27|$06:$BC17:20 61 C5	JSR $C561  	; play PCM specified by A (>= #$80 = sound effect [SFX], < #$80 = background music [BGM])
0x01BC2A|$06:$BC1A:20 38 BC	JSR $BC38  
0x01BC2D|$06:$BC1D:A9 FF   	LDA #$FF   	; SLOW
0x01BC2F|$06:$BC1F:8D 2C 06	STA $062C  	; current battle message delay
; call to code in a different bank ($0F:$EB76)
0x01BC32|$06:$BC22:20 76 EB	JSR $EB76  	; open menu specified by next byte

; code -> data
; indirect data load target
0x01BC35|$06:$BC25:04	; Menu ID #$04: Dialogue window

; data -> code
; call to code in a different bank ($0F:$FA2E)
0x01BC36|$06:$BC26:20 2E FA	JSR $FA2E  	; display string ID specified by next byte + #$0100

; code -> data
; indirect data load target
0x01BC39|$06:$BC29:93	; String ID #$0193: ‘Then peace returned[.’][end-FC]

; data -> code
; call to code in a different bank ($0F:$D343)
0x01BC3A|$06:$BC2A:4C 43 D3	JMP $D343  

; control flow target (from $BBDF, $BBE7, $BBF4, $BBFC, $BC07, $BC0F)
; call to code in a different bank ($0F:$CF64)
0x01BC3D|$06:$BC2D:20 64 CF	JSR $CF64  
0x01BC40|$06:$BC30:A2 0A   	LDX #$0A   
0x01BC42|$06:$BC32:D0 06   	BNE $BC3A  
; control flow target (from $BBFF, $BC12)
0x01BC44|$06:$BC34:A2 1E   	LDX #$1E   
0x01BC46|$06:$BC36:D0 02   	BNE $BC3A  
; control flow target (from $BB94, $BBA8, $BBC7, $BC1A)
0x01BC48|$06:$BC38:A2 3C   	LDX #$3C   
; control flow target (from $BC32, $BC36)
; call to code in a different bank ($0F:$C1EE)
0x01BC4A|$06:$BC3A:4C EE C1	JMP $C1EE  	; set $6007 = #$00, set $00 = #$01, wait for X interrupts, set $00 = #$FF

; indirect control flow target (via $803E)
0x01BC4D|$06:$BC3D:A2 3D   	LDX #$3D   
; control flow target (from $BC46)
0x01BC4F|$06:$BC3F:BD 4F BC	LDA $BC4F,X	; code copied to and executed in RAM
0x01BC52|$06:$BC42:9D 00 04	STA $0400,X	; menu-based palette overrides start
0x01BC55|$06:$BC45:CA      	DEX        
0x01BC56|$06:$BC46:10 F7   	BPL $BC3F  
0x01BC58|$06:$BC48:AD F6 05	LDA $05F6  	; current bank
0x01BC5B|$06:$BC4B:48      	PHA        
; call to code in RAM
0x01BC5C|$06:$BC4C:4C 33 04	JMP $0433  

; code copied to and executed in RAM
; control flow target (from $BC8B)
; indexed data load target (from $BC3F)
0x01BC5F|$06:$BC4F:AC F6 05	LDY $05F6  	; current bank
0x01BC62|$06:$BC52:C8      	INY        
0x01BC63|$06:$BC53:98      	TYA        
0x01BC64|$06:$BC54:29 07   	AND #$07   
0x01BC66|$06:$BC56:48      	PHA        
0x01BC67|$06:$BC57:A6 43   	LDX $43    
0x01BC69|$06:$BC59:E0 03   	CPX #$03   
0x01BC6B|$06:$BC5B:D0 09   	BNE $BC66  
; call to code in a different bank ($0F:$C476)
0x01BC6D|$06:$BC5D:20 76 C4	JSR $C476  	; read joypad 1 data into $2F
0x01BC70|$06:$BC60:46 2F   	LSR $2F    	; joypad 1 data
0x01BC72|$06:$BC62:A6 43   	LDX $43    
0x01BC74|$06:$BC64:90 1E   	BCC $BC84  
; control flow target (from $BC5B)
0x01BC76|$06:$BC66:E8      	INX        
0x01BC77|$06:$BC67:E0 14   	CPX #$14   
0x01BC79|$06:$BC69:90 19   	BCC $BC84  
; call to code in a different bank ($0F:$C3AB)
0x01BC7B|$06:$BC6B:20 AB C3	JSR $C3AB  	; generate a random number and store it in $32-$33 (two passes)
0x01BC7E|$06:$BC6E:A5 32   	LDA $32    	; RNG byte 0
0x01BC80|$06:$BC70:29 24   	AND #$24   
0x01BC82|$06:$BC72:D0 10   	BNE $BC84  
; control flow target (from $BC79)
; call to code in a different bank ($0F:$C476)
0x01BC84|$06:$BC74:20 76 C4	JSR $C476  	; read joypad 1 data into $2F
0x01BC87|$06:$BC77:46 2F   	LSR $2F    	; joypad 1 data
0x01BC89|$06:$BC79:90 F9   	BCC $BC74  
; control flow target (from $BC80)
; call to code in a different bank ($0F:$C476)
0x01BC8B|$06:$BC7B:20 76 C4	JSR $C476  	; read joypad 1 data into $2F
0x01BC8E|$06:$BC7E:46 2F   	LSR $2F    	; joypad 1 data
0x01BC90|$06:$BC80:B0 F9   	BCS $BC7B  
0x01BC92|$06:$BC82:A2 03   	LDX #$03   
; control flow target (from $BC64, $BC69, $BC72)
0x01BC94|$06:$BC84:68      	PLA        
; call to code in a different bank ($0F:$C3D5)
0x01BC95|$06:$BC85:20 D5 C3	JSR $C3D5  	; save A to $05F6, X to $43, and load bank specified by A
; call to code in a different bank ($0F:$C1EE)
0x01BC98|$06:$BC88:20 EE C1	JSR $C1EE  	; set $6007 = #$00, set $00 = #$01, wait for X interrupts, set $00 = #$FF
0x01BC9B|$06:$BC8B:F0 C2   	BEQ $BC4F  	; code copied to and executed in RAM

; indirect control flow target (via $8040)
0x01BC9D|$06:$BC8D:A5 17   	LDA $17    	; current map Y-pos (1)
0x01BC9F|$06:$BC8F:C9 07   	CMP #$07   
0x01BCA1|$06:$BC91:F0 01   	BEQ $BC94  
0x01BCA3|$06:$BC93:60      	RTS        

; control flow target (from $BC91)
0x01BCA4|$06:$BC94:A0 50   	LDY #$50   
0x01BCA6|$06:$BC96:A9 00   	LDA #$00   
; control flow target (from $BC9E)
0x01BCA8|$06:$BC98:99 3A 05	STA $053A,Y
0x01BCAB|$06:$BC9B:C8      	INY        
0x01BCAC|$06:$BC9C:C0 68   	CPY #$68   
0x01BCAE|$06:$BC9E:D0 F8   	BNE $BC98  
0x01BCB0|$06:$BCA0:A9 FF   	LDA #$FF   
0x01BCB2|$06:$BCA2:8D 91 05	STA $0591  	; NPC #$0A sprite ID
0x01BCB5|$06:$BCA5:8D 99 05	STA $0599  	; NPC #$0B sprite ID
0x01BCB8|$06:$BCA8:8D A1 05	STA $05A1  	; NPC #$0C sprite ID
0x01BCBB|$06:$BCAB:A5 16   	LDA $16    	; current map X-pos (1)
0x01BCBD|$06:$BCAD:8D 8C 05	STA $058C  	; NPC #$0A X-pos
0x01BCC0|$06:$BCB0:8D 94 05	STA $0594  	; NPC #$0B X-pos
0x01BCC3|$06:$BCB3:CE 94 05	DEC $0594  	; NPC #$0B X-pos
0x01BCC6|$06:$BCB6:8D 9C 05	STA $059C  	; NPC #$0C X-pos
0x01BCC9|$06:$BCB9:EE 9C 05	INC $059C  	; NPC #$0C X-pos
0x01BCCC|$06:$BCBC:A5 17   	LDA $17    	; current map Y-pos (1)
0x01BCCE|$06:$BCBE:8D 8D 05	STA $058D  	; NPC #$0A Y-pos
0x01BCD1|$06:$BCC1:EE 8D 05	INC $058D  	; NPC #$0A Y-pos
0x01BCD4|$06:$BCC4:8D 95 05	STA $0595  	; NPC #$0B Y-pos
0x01BCD7|$06:$BCC7:8D 9D 05	STA $059D  	; NPC #$0C Y-pos
0x01BCDA|$06:$BCCA:A9 04   	LDA #$04   
0x01BCDC|$06:$BCCC:8D 91 05	STA $0591  	; NPC #$0A sprite ID
0x01BCDF|$06:$BCCF:20 6C BD	JSR $BD6C  
0x01BCE2|$06:$BCD2:8D 99 05	STA $0599  	; NPC #$0B sprite ID
0x01BCE5|$06:$BCD5:20 6C BD	JSR $BD6C  
0x01BCE8|$06:$BCD8:8D A1 05	STA $05A1  	; NPC #$0C sprite ID
0x01BCEB|$06:$BCDB:20 6C BD	JSR $BD6C  
0x01BCEE|$06:$BCDE:20 7C BD	JSR $BD7C  
0x01BCF1|$06:$BCE1:20 7C BD	JSR $BD7C  
0x01BCF4|$06:$BCE4:A9 0A   	LDA #$0A   
0x01BCF6|$06:$BCE6:85 D0   	STA $D0    	; Malroth status flag (#$FF = defeated, #$00 = alive, others = countdown to battle)
; control flow target (from $BD23)
; call to code in a different bank ($0F:$C3AB)
0x01BCF8|$06:$BCE8:20 AB C3	JSR $C3AB  	; generate a random number and store it in $32-$33 (two passes)
0x01BCFB|$06:$BCEB:A5 32   	LDA $32    	; RNG byte 0
0x01BCFD|$06:$BCED:29 0E   	AND #$0E   
0x01BCFF|$06:$BCEF:38      	SEC        
0x01BD00|$06:$BCF0:E9 08   	SBC #$08   
0x01BD02|$06:$BCF2:85 18   	STA $18    
; call to code in a different bank ($0F:$C3AB)
0x01BD04|$06:$BCF4:20 AB C3	JSR $C3AB  	; generate a random number and store it in $32-$33 (two passes)
0x01BD07|$06:$BCF7:A5 32   	LDA $32    	; RNG byte 0
0x01BD09|$06:$BCF9:29 0E   	AND #$0E   
0x01BD0B|$06:$BCFB:38      	SEC        
0x01BD0C|$06:$BCFC:E9 08   	SBC #$08   
0x01BD0E|$06:$BCFE:85 19   	STA $19    
0x01BD10|$06:$BD00:A9 00   	LDA #$00   
0x01BD12|$06:$BD02:85 1C   	STA $1C    
0x01BD14|$06:$BD04:85 1E   	STA $1E    
0x01BD16|$06:$BD06:A9 87   	LDA #$87   	; Music ID #$87: hit 2 SFX
; call to code in a different bank ($0F:$C561)
0x01BD18|$06:$BD08:20 61 C5	JSR $C561  	; play PCM specified by A (>= #$80 = sound effect [SFX], < #$80 = background music [BGM])
; call to code in a different bank ($0F:$D325)
0x01BD1B|$06:$BD0B:20 25 D3	JSR $D325  
; call to code in a different bank ($0F:$C3AB)
0x01BD1E|$06:$BD0E:20 AB C3	JSR $C3AB  	; generate a random number and store it in $32-$33 (two passes)
0x01BD21|$06:$BD11:A5 32   	LDA $32    	; RNG byte 0
0x01BD23|$06:$BD13:29 07   	AND #$07   
0x01BD25|$06:$BD15:D0 06   	BNE $BD1D  
; call to code in a different bank ($0F:$C511)
0x01BD27|$06:$BD17:20 11 C5	JSR $C511  	; flash screen 5 times
0x01BD2A|$06:$BD1A:4C 21 BD	JMP $BD21  

; control flow target (from $BD15)
0x01BD2D|$06:$BD1D:AA      	TAX        
; call to code in a different bank ($0F:$C1EE)
0x01BD2E|$06:$BD1E:20 EE C1	JSR $C1EE  	; set $6007 = #$00, set $00 = #$01, wait for X interrupts, set $00 = #$FF
; control flow target (from $BD1A)
0x01BD31|$06:$BD21:C6 D0   	DEC $D0    	; Malroth status flag (#$FF = defeated, #$00 = alive, others = countdown to battle)
0x01BD33|$06:$BD23:D0 C3   	BNE $BCE8  
; control flow target (from $BD31)
0x01BD35|$06:$BD25:A9 94   	LDA #$94   	; Music ID #$94: burning SFX
; call to code in a different bank ($0F:$C561)
0x01BD37|$06:$BD27:20 61 C5	JSR $C561  	; play PCM specified by A (>= #$80 = sound effect [SFX], < #$80 = background music [BGM])
; call to code in a different bank ($0F:$D200)
0x01BD3A|$06:$BD2A:20 00 D2	JSR $D200  
0x01BD3D|$06:$BD2D:A5 98   	LDA $98    	; outcome of last fight?
0x01BD3F|$06:$BD2F:C9 FE   	CMP #$FE   
0x01BD41|$06:$BD31:90 F2   	BCC $BD25  
0x01BD43|$06:$BD33:A9 06   	LDA #$06   
0x01BD45|$06:$BD35:85 94   	STA $94    	; return bank for various function calls, doubles as index of selected option for multiple-choice menus
; call to code in a different bank ($0F:$FA32)
0x01BD47|$06:$BD37:20 32 FA	JSR $FA32  	; display string ID specified by next byte + #$0200

; code -> data
; indirect data load target
0x01BD4A|$06:$BD3A:E8	; String ID #$02E8: [wait]‘Thou hast delivered the world from Malroth's evil[.’][wait][line]‘Great is the victory and greater the rewards[.’][wait][line]‘I, Rubiss, have watched thy struggles and I am proud of thee[.’][end-FC]

; data -> code
; call to code in a different bank ($0F:$C515)
0x01BD4B|$06:$BD3B:20 15 C5	JSR $C515  	; flash screen 10 times
; call to code in a different bank ($0F:$C515)
0x01BD4E|$06:$BD3E:20 15 C5	JSR $C515  	; flash screen 10 times
0x01BD51|$06:$BD41:A9 84   	LDA #$84   
0x01BD53|$06:$BD43:8D 2D 06	STA $062D  	; Midenhall status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence)
0x01BD56|$06:$BD46:8D 3F 06	STA $063F  	; Cannock status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence)
0x01BD59|$06:$BD49:8D 51 06	STA $0651  	; Moonbrooke status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence)
; call to code in a different bank ($0F:$C77B)
0x01BD5C|$06:$BD4C:20 7B C7	JSR $C77B  	; restore full HP/MP to all living party members
; call to code in a different bank ($0F:$EB76)
0x01BD5F|$06:$BD4F:20 76 EB	JSR $EB76  	; open menu specified by next byte

; code -> data
; indirect data load target
0x01BD62|$06:$BD52:01	; Menu ID #$04: Mini status window, top

; data -> code
; call to code in a different bank ($0F:$C22C)
0x01BD63|$06:$BD53:20 2C C2	JSR $C22C  
; call to code in a different bank ($0F:$FA32)
0x01BD66|$06:$BD56:20 32 FA	JSR $FA32  	; display string ID specified by next byte + #$0200

; code -> data
; indirect data load target
0x01BD69|$06:$BD59:E9	; String ID #$02E9: [wait]‘Go now!’[end-FC]

; data -> code
0x01BD6A|$06:$BD5A:A9 FF   	LDA #$FF   
0x01BD6C|$06:$BD5C:85 D0   	STA $D0    	; Malroth status flag (#$FF = defeated, #$00 = alive, others = countdown to battle)
0x01BD6E|$06:$BD5E:85 44   	STA $44    	; non-saved event status (#$00 = event start, #$01 = Lianport Gremlins defeated, #$02 = met with Lianport grandfather/have no friends at Shrine SW of Cannock, #$03 = King Midenhall moved to stairs, #$04 = King Midenhall moved down stairs, #$05 = King Midenhall spoke on Midenhall 1F, #$0B = Lighthouse Wizard 7F, #$1B Lighthouse Wizard 2F spoke, #$64 = Hargon dead, #$FF = event end)
0x01BD70|$06:$BD60:A2 01   	LDX #$01   
; call to code in a different bank ($0F:$D2F1)
0x01BD72|$06:$BD62:20 F1 D2	JSR $D2F1  
0x01BD75|$06:$BD65:A9 00   	LDA #$00   
0x01BD77|$06:$BD67:85 8E   	STA $8E    	; flag for in battle or not (#$FF)?
; call to code in a different bank ($0F:$D88F)
0x01BD79|$06:$BD69:4C 8F D8	JMP $D88F  	; warp to warp point given by ($0C)

; control flow target (from $BCCF, $BCD5, $BCDB)
0x01BD7C|$06:$BD6C:A9 91   	LDA #$91   	; Music ID #$91: swamp SFX
; call to code in a different bank ($0F:$C561)
0x01BD7E|$06:$BD6E:20 61 C5	JSR $C561  	; play PCM specified by A (>= #$80 = sound effect [SFX], < #$80 = background music [BGM])
; call to code in a different bank ($0F:$D32E)
0x01BD81|$06:$BD71:20 2E D3	JSR $D32E  
0x01BD84|$06:$BD74:A2 28   	LDX #$28   
; call to code in a different bank ($0F:$C1EE)
0x01BD86|$06:$BD76:20 EE C1	JSR $C1EE  	; set $6007 = #$00, set $00 = #$01, wait for X interrupts, set $00 = #$FF
0x01BD89|$06:$BD79:A9 04   	LDA #$04   
0x01BD8B|$06:$BD7B:60      	RTS        

; control flow target (from $BCDE, $BCE1)
0x01BD8C|$06:$BD7C:A9 94   	LDA #$94   	; Music ID #$94: burning SFX
; call to code in a different bank ($0F:$C561)
0x01BD8E|$06:$BD7E:20 61 C5	JSR $C561  	; play PCM specified by A (>= #$80 = sound effect [SFX], < #$80 = background music [BGM])
; call to code in a different bank ($0F:$C511)
0x01BD91|$06:$BD81:20 11 C5	JSR $C511  	; flash screen 5 times
0x01BD94|$06:$BD84:A2 11   	LDX #$11   
; call to code in a different bank ($0F:$C1EE)
0x01BD96|$06:$BD86:20 EE C1	JSR $C1EE  	; set $6007 = #$00, set $00 = #$01, wait for X interrupts, set $00 = #$FF
0x01BD99|$06:$BD89:A9 94   	LDA #$94   	; Music ID #$94: burning SFX
; call to code in a different bank ($0F:$C561)
0x01BD9B|$06:$BD8B:20 61 C5	JSR $C561  	; play PCM specified by A (>= #$80 = sound effect [SFX], < #$80 = background music [BGM])
; call to code in a different bank ($0F:$C511)
0x01BD9E|$06:$BD8E:20 11 C5	JSR $C511  	; flash screen 5 times
0x01BDA1|$06:$BD91:A2 32   	LDX #$32   
; call to code in a different bank ($0F:$C1EE)
0x01BDA3|$06:$BD93:4C EE C1	JMP $C1EE  	; set $6007 = #$00, set $00 = #$01, wait for X interrupts, set $00 = #$FF

; indirect control flow target (via $8044)
0x01BDA6|$06:$BD96:AD AD 61	LDA $61AD  
0x01BDA9|$06:$BD99:D0 51   	BNE $BDEC  
0x01BDAB|$06:$BD9B:A9 FF   	LDA #$FF   
0x01BDAD|$06:$BD9D:8D 41 05	STA $0541  	; NPC #$00 sprite ID
0x01BDB0|$06:$BDA0:8D 49 05	STA $0549  	; NPC #$01 sprite ID
0x01BDB3|$06:$BDA3:8D 51 05	STA $0551  	; NPC #$02 sprite ID
0x01BDB6|$06:$BDA6:A5 CF   	LDA $CF    	; ship status (#$04 = on ship, #$02 = own ship, #$01 = beat Lianport Gremlins)
0x01BDB8|$06:$BDA8:29 04   	AND #$04   
0x01BDBA|$06:$BDAA:F0 07   	BEQ $BDB3  
0x01BDBC|$06:$BDAC:A9 05   	LDA #$05   
0x01BDBE|$06:$BDAE:8D 41 05	STA $0541  	; NPC #$00 sprite ID
0x01BDC1|$06:$BDB1:D0 13   	BNE $BDC6  
; control flow target (from $BDAA)
0x01BDC3|$06:$BDB3:A2 07   	LDX #$07   
0x01BDC5|$06:$BDB5:A9 84   	LDA #$84   
0x01BDC7|$06:$BDB7:85 0E   	STA $0E    
0x01BDC9|$06:$BDB9:20 ED BD	JSR $BDED  
0x01BDCC|$06:$BDBC:A9 04   	LDA #$04   
0x01BDCE|$06:$BDBE:85 0E   	STA $0E    
0x01BDD0|$06:$BDC0:20 ED BD	JSR $BDED  
0x01BDD3|$06:$BDC3:20 10 BE	JSR $BE10  
; control flow target (from $BDB1)
0x01BDD6|$06:$BDC6:A0 00   	LDY #$00   
; control flow target (from $BDEA)
0x01BDD8|$06:$BDC8:B9 41 05	LDA $0541,Y	; NPC #$00 sprite ID
0x01BDDB|$06:$BDCB:C9 FF   	CMP #$FF   
0x01BDDD|$06:$BDCD:D0 14   	BNE $BDE3  
0x01BDDF|$06:$BDCF:A9 00   	LDA #$00   
0x01BDE1|$06:$BDD1:99 3A 05	STA $053A,Y
0x01BDE4|$06:$BDD4:99 3B 05	STA $053B,Y
0x01BDE7|$06:$BDD7:99 3C 05	STA $053C,Y	; NPC #$00 ?
0x01BDEA|$06:$BDDA:99 3D 05	STA $053D,Y	; NPC #$00 ?
0x01BDED|$06:$BDDD:99 3E 05	STA $053E,Y	; NPC #$00 ?
0x01BDF0|$06:$BDE0:99 3F 05	STA $053F,Y	; NPC #$00 ?
; control flow target (from $BDCD)
0x01BDF3|$06:$BDE3:98      	TYA        
0x01BDF4|$06:$BDE4:18      	CLC        
0x01BDF5|$06:$BDE5:69 08   	ADC #$08   
0x01BDF7|$06:$BDE7:A8      	TAY        
0x01BDF8|$06:$BDE8:C9 18   	CMP #$18   
0x01BDFA|$06:$BDEA:D0 DC   	BNE $BDC8  
; control flow target (from $BD99)
0x01BDFC|$06:$BDEC:60      	RTS        

; control flow target (from $BDB9, $BDC0)
0x01BDFD|$06:$BDED:A0 00   	LDY #$00   
0x01BDFF|$06:$BDEF:84 0C   	STY $0C    
; control flow target (from $BE0D)
0x01BE01|$06:$BDF1:B9 2D 06	LDA $062D,Y	; Midenhall status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence)
0x01BE04|$06:$BDF4:29 84   	AND #$84   
0x01BE06|$06:$BDF6:C5 0E   	CMP $0E    
0x01BE08|$06:$BDF8:D0 0A   	BNE $BE04  
0x01BE0A|$06:$BDFA:A5 0C   	LDA $0C    
0x01BE0C|$06:$BDFC:9D 3A 05	STA $053A,X
0x01BE0F|$06:$BDFF:8A      	TXA        
0x01BE10|$06:$BE00:18      	CLC        
0x01BE11|$06:$BE01:69 08   	ADC #$08   
0x01BE13|$06:$BE03:AA      	TAX        
; control flow target (from $BDF8)
0x01BE14|$06:$BE04:E6 0C   	INC $0C    
0x01BE16|$06:$BE06:98      	TYA        
0x01BE17|$06:$BE07:18      	CLC        
0x01BE18|$06:$BE08:69 12   	ADC #$12   
0x01BE1A|$06:$BE0A:A8      	TAY        
0x01BE1B|$06:$BE0B:C9 36   	CMP #$36   
0x01BE1D|$06:$BE0D:D0 E2   	BNE $BDF1  
0x01BE1F|$06:$BE0F:60      	RTS        

; control flow target (from $BDC3)
0x01BE20|$06:$BE10:A5 45   	LDA $45    
0x01BE22|$06:$BE12:C9 FF   	CMP #$FF   
0x01BE24|$06:$BE14:D0 01   	BNE $BE17  
0x01BE26|$06:$BE16:60      	RTS        

; control flow target (from $BE14)
0x01BE27|$06:$BE17:C9 00   	CMP #$00   
0x01BE29|$06:$BE19:D0 08   	BNE $BE23  
0x01BE2B|$06:$BE1B:A9 02   	LDA #$02   
; control flow target (from $BE57, $BE5F, $BE67, $BE6F)
0x01BE2D|$06:$BE1D:8D 40 05	STA $0540  	; NPC #$00 ? + direction nybble
0x01BE30|$06:$BE20:4C 27 BE	JMP $BE27  

; control flow target (from $BE19)
0x01BE33|$06:$BE23:C9 01   	CMP #$01   
0x01BE35|$06:$BE25:D0 2A   	BNE $BE51  
; control flow target (from $BE20)
0x01BE37|$06:$BE27:AD 3A 05	LDA $053A  
0x01BE3A|$06:$BE2A:8D 42 05	STA $0542  	; NPC #$00 ?
0x01BE3D|$06:$BE2D:8D 4A 05	STA $054A  	; NPC #$01 scripted motion low byte
0x01BE40|$06:$BE30:AD 3B 05	LDA $053B  
0x01BE43|$06:$BE33:8D 43 05	STA $0543  	; NPC #$00 ?
0x01BE46|$06:$BE36:8D 4B 05	STA $054B  	; NPC #$01 scripted motion high byte
0x01BE49|$06:$BE39:AD 40 05	LDA $0540  	; NPC #$00 ? + direction nybble
0x01BE4C|$06:$BE3C:8D 48 05	STA $0548  	; NPC #$01 ? + direction nybble
0x01BE4F|$06:$BE3F:8D 50 05	STA $0550  	; NPC #$02 ? + direction nybble
0x01BE52|$06:$BE42:A9 00   	LDA #$00   
0x01BE54|$06:$BE44:8D 44 05	STA $0544  	; NPC #$01 ?
0x01BE57|$06:$BE47:8D 45 05	STA $0545  	; NPC #$01 ?
0x01BE5A|$06:$BE4A:8D 4C 05	STA $054C  	; NPC #$02 ?
0x01BE5D|$06:$BE4D:8D 4D 05	STA $054D  	; NPC #$02 ?
0x01BE60|$06:$BE50:60      	RTS        

; control flow target (from $BE25)
0x01BE61|$06:$BE51:C9 03   	CMP #$03   
0x01BE63|$06:$BE53:D0 04   	BNE $BE59  
0x01BE65|$06:$BE55:A9 03   	LDA #$03   
0x01BE67|$06:$BE57:D0 C4   	BNE $BE1D  
; control flow target (from $BE53)
0x01BE69|$06:$BE59:C9 04   	CMP #$04   
0x01BE6B|$06:$BE5B:D0 04   	BNE $BE61  
0x01BE6D|$06:$BE5D:A9 01   	LDA #$01   
0x01BE6F|$06:$BE5F:D0 BC   	BNE $BE1D  
; control flow target (from $BE5B)
0x01BE71|$06:$BE61:C9 09   	CMP #$09   
0x01BE73|$06:$BE63:D0 04   	BNE $BE69  
0x01BE75|$06:$BE65:A9 00   	LDA #$00   
0x01BE77|$06:$BE67:F0 B4   	BEQ $BE1D  
; control flow target (from $BE63)
0x01BE79|$06:$BE69:C9 0A   	CMP #$0A   
0x01BE7B|$06:$BE6B:D0 04   	BNE $BE71  
0x01BE7D|$06:$BE6D:A9 02   	LDA #$02   
0x01BE7F|$06:$BE6F:D0 AC   	BNE $BE1D  
; control flow target (from $BE6B)
0x01BE81|$06:$BE71:C9 02   	CMP #$02   
0x01BE83|$06:$BE73:D0 47   	BNE $BEBC  
0x01BE85|$06:$BE75:A5 17   	LDA $17    	; current map Y-pos (1)
0x01BE87|$06:$BE77:D0 04   	BNE $BE7D  
; control flow target (from $BEC6)
0x01BE89|$06:$BE79:A9 02   	LDA #$02   
0x01BE8B|$06:$BE7B:D0 16   	BNE $BE93  
; control flow target (from $BE77)
0x01BE8D|$06:$BE7D:A5 16   	LDA $16    	; current map X-pos (1)
0x01BE8F|$06:$BE7F:C5 21   	CMP $21    	; map width
0x01BE91|$06:$BE81:D0 04   	BNE $BE87  
; control flow target (from $BECA)
0x01BE93|$06:$BE83:A9 03   	LDA #$03   
0x01BE95|$06:$BE85:D0 0C   	BNE $BE93  
; control flow target (from $BE81)
0x01BE97|$06:$BE87:A5 16   	LDA $16    	; current map X-pos (1)
0x01BE99|$06:$BE89:D0 04   	BNE $BE8F  
; control flow target (from $BEC2)
0x01BE9B|$06:$BE8B:A9 01   	LDA #$01   
0x01BE9D|$06:$BE8D:D0 04   	BNE $BE93  
; control flow target (from $BE89, $BEBE)
0x01BE9F|$06:$BE8F:A9 00   	LDA #$00   
0x01BEA1|$06:$BE91:F0 00   	BEQ $BE93  	; useless op
; control flow target (from $BE7B, $BE85, $BE8D, $BE91)
0x01BEA3|$06:$BE93:8D 40 05	STA $0540  	; NPC #$00 ? + direction nybble
0x01BEA6|$06:$BE96:8D 48 05	STA $0548  	; NPC #$01 ? + direction nybble
0x01BEA9|$06:$BE99:8D 50 05	STA $0550  	; NPC #$02 ? + direction nybble
0x01BEAC|$06:$BE9C:0A      	ASL        
0x01BEAD|$06:$BE9D:0A      	ASL        
0x01BEAE|$06:$BE9E:0A      	ASL        
0x01BEAF|$06:$BE9F:AA      	TAX        
0x01BEB0|$06:$BEA0:A0 08   	LDY #$08   
; control flow target (from $BEB9)
0x01BEB2|$06:$BEA2:A9 04   	LDA #$04   
0x01BEB4|$06:$BEA4:85 2E   	STA $2E    
; control flow target (from $BEB0)
0x01BEB6|$06:$BEA6:BD CD BE	LDA $BECD,X
0x01BEB9|$06:$BEA9:99 3A 05	STA $053A,Y
0x01BEBC|$06:$BEAC:C8      	INY        
0x01BEBD|$06:$BEAD:E8      	INX        
0x01BEBE|$06:$BEAE:C6 2E   	DEC $2E    
0x01BEC0|$06:$BEB0:D0 F4   	BNE $BEA6  
0x01BEC2|$06:$BEB2:98      	TYA        
0x01BEC3|$06:$BEB3:18      	CLC        
0x01BEC4|$06:$BEB4:69 04   	ADC #$04   
0x01BEC6|$06:$BEB6:A8      	TAY        
0x01BEC7|$06:$BEB7:C9 18   	CMP #$18   
0x01BEC9|$06:$BEB9:D0 E7   	BNE $BEA2  
0x01BECB|$06:$BEBB:60      	RTS        

; control flow target (from $BE73)
0x01BECC|$06:$BEBC:C9 05   	CMP #$05   
0x01BECE|$06:$BEBE:F0 CF   	BEQ $BE8F  
0x01BED0|$06:$BEC0:C9 06   	CMP #$06   
0x01BED2|$06:$BEC2:F0 C7   	BEQ $BE8B  
0x01BED4|$06:$BEC4:C9 07   	CMP #$07   
0x01BED6|$06:$BEC6:F0 B1   	BEQ $BE79  
0x01BED8|$06:$BEC8:C9 08   	CMP #$08   
0x01BEDA|$06:$BECA:F0 B7   	BEQ $BE83  
0x01BEDC|$06:$BECC:60      	RTS        


; code -> data
; indexed data load target (from $BEA6)
0x01BEDD|$06:$BECD:80 7F 00 01
0x01BEE1|$06:$BED1:80 8F 00 01
0x01BEE5|$06:$BED5:70 6F FF 00
0x01BEE9|$06:$BED9:60 6F FF 00
0x01BEED|$06:$BEDD:80 5F 00 FF
0x01BEF1|$06:$BEE1:80 4F 00 FF
; indirect data load target
0x01BEF5|$06:$BEE5:90 6F 01 00
0x01BEF9|$06:$BEE9:A0 6F 01 00

; data -> code
; X = 1 => CLC and update $0C-$0D to warp point data to use if Outside allowed from current map, SEC otherwise, X = 2 => CLC and update $0C-$0D to warp point data to use if Return allowed from current map, SEC otherwise, X = 3 => disembark from ship and update ship position based on last save point ID $48
; indirect control flow target (via $8046)
0x01BEFD|$06:$BEED:CA      	DEX        
0x01BEFE|$06:$BEEE:F0 08   	BEQ $BEF8  	; CLC and update $0C-$0D to warp point data to use if Outside allowed from current map
0x01BF00|$06:$BEF0:CA      	DEX        
0x01BF01|$06:$BEF1:F0 47   	BEQ $BF3A  	; CLC and update $0C-$0D to warp point data to use if Return allowed from current map
0x01BF03|$06:$BEF3:CA      	DEX        
0x01BF04|$06:$BEF4:F0 69   	BEQ $BF5F  	; disembark from ship and update ship position based on last save point ID $48
0x01BF06|$06:$BEF6:38      	SEC        
0x01BF07|$06:$BEF7:60      	RTS        

; CLC and update $0C-$0D to warp point data to use if Outside allowed from current map
; control flow target (from $BEEE)
0x01BF08|$06:$BEF8:A5 31   	LDA $31    	; current map ID
0x01BF0A|$06:$BEFA:C9 17   	CMP #$17   	; Map ID #$17: Hargon's Castle 7F
0x01BF0C|$06:$BEFC:D0 11   	BNE $BF0F  
; Hargon's Castle 7F is special: after defeating Hargon, you can't escape before defeating Malroth
0x01BF0E|$06:$BEFE:A5 D0   	LDA $D0    	; Malroth status flag (#$FF = defeated, #$00 = alive, others = countdown to battle)
0x01BF10|$06:$BF00:30 07   	BMI $BF09  	; Outside from Hargon's Castle 7F is okay
0x01BF12|$06:$BF02:AD 61 05	LDA $0561  	; NPC #$04 sprite ID; #$FF if Hargon defeated
0x01BF15|$06:$BF05:C9 FF   	CMP #$FF   
0x01BF17|$06:$BF07:F0 1A   	BEQ $BF23  	; SEC to flag Outside not allowed for calling code
; Outside from Hargon's Castle 7F is okay
; control flow target (from $BF00)
0x01BF19|$06:$BF09:A9 44   	LDA #$44   	; Map ID #$44: Hargon's Castle 2F
0x01BF1B|$06:$BF0B:A0 07   	LDY #$07   	; first floor index for Map ID #$44: Hargon's Castle 2F
0x01BF1D|$06:$BF0D:D0 16   	BNE $BF25  	; Outside is allowed
; control flow target (from $BEFC)
0x01BF1F|$06:$BF0F:C9 18   	CMP #$18   	; Map ID #$18: Charlock Castle B8
0x01BF21|$06:$BF11:D0 06   	BNE $BF19  
; Charlock Castle B8 is not considered a dungeon, so handle it specially
0x01BF23|$06:$BF13:A9 34   	LDA #$34   	; Map ID #$34: Charlock Castle B1/B2
0x01BF25|$06:$BF15:A0 03   	LDY #$03   	; first floor index for Map ID #$34: Charlock Castle B1/B2
0x01BF27|$06:$BF17:D0 0C   	BNE $BF25  	; Outside is allowed
; control flow target (from $BF11)
0x01BF29|$06:$BF19:A0 0C   	LDY #$0C   	; for everything else, start scanning the first floor list
; control flow target (from $BF21)
0x01BF2B|$06:$BF1B:D9 82 BF	CMP $BF82,Y	; dungeon first floors
0x01BF2E|$06:$BF1E:B0 05   	BCS $BF25  	; Outside is allowed
0x01BF30|$06:$BF20:88      	DEY        
0x01BF31|$06:$BF21:10 F8   	BPL $BF1B  	; if more first floors to check, check them
; SEC to flag Outside not allowed for calling code
; control flow target (from $BF07)
0x01BF33|$06:$BF23:38      	SEC        
0x01BF34|$06:$BF24:60      	RTS        

; Outside is allowed
; control flow target (from $BF0D, $BF17, $BF1E)
0x01BF35|$06:$BF25:38      	SEC        
0x01BF36|$06:$BF26:F9 82 BF	SBC $BF82,Y	; dungeon first floors
0x01BF39|$06:$BF29:85 0E   	STA $0E    	; floor number
0x01BF3B|$06:$BF2B:98      	TYA        
0x01BF3C|$06:$BF2C:0A      	ASL        
0x01BF3D|$06:$BF2D:A8      	TAY        
0x01BF3E|$06:$BF2E:B9 8F BF	LDA $BF8F,Y	; pointer to warp point data used when casting Outside
0x01BF41|$06:$BF31:85 0C   	STA $0C    
0x01BF43|$06:$BF33:B9 90 BF	LDA $BF90,Y
0x01BF46|$06:$BF36:85 0D   	STA $0D    
0x01BF48|$06:$BF38:18      	CLC        
0x01BF49|$06:$BF39:60      	RTS        

; CLC and update $0C-$0D to warp point data to use if Return allowed from current map
; control flow target (from $BEF1)
0x01BF4A|$06:$BF3A:A5 31   	LDA $31    	; current map ID
0x01BF4C|$06:$BF3C:F0 1F   	BEQ $BF5D  	; SEC to flag Return disallowed for calling code; Map ID #$00: Fake Midenhall
0x01BF4E|$06:$BF3E:C9 2B   	CMP #$2B   	; map IDs >= #$2B are dungeon maps
0x01BF50|$06:$BF40:B0 1B   	BCS $BF5D  	; SEC to flag Return disallowed for calling code
0x01BF52|$06:$BF42:C9 17   	CMP #$17   	; Map ID #$17: Hargon's Castle 7F
0x01BF54|$06:$BF44:F0 17   	BEQ $BF5D  	; SEC to flag Return disallowed for calling code
0x01BF56|$06:$BF46:C9 18   	CMP #$18   	; Map ID #$18: Charlock Castle B8
0x01BF58|$06:$BF48:F0 13   	BEQ $BF5D  	; SEC to flag Return disallowed for calling code
0x01BF5A|$06:$BF4A:20 5F BF	JSR $BF5F  	; disembark from ship and update ship position based on last save point ID $48
0x01BF5D|$06:$BF4D:A5 48   	LDA $48    	; last save point ID
0x01BF5F|$06:$BF4F:0A      	ASL        
0x01BF60|$06:$BF50:A8      	TAY        
0x01BF61|$06:$BF51:B9 A9 BF	LDA $BFA9,Y	; pointer to warp point data used when casting Return
0x01BF64|$06:$BF54:85 0C   	STA $0C    
0x01BF66|$06:$BF56:B9 AA BF	LDA $BFAA,Y
0x01BF69|$06:$BF59:85 0D   	STA $0D    
0x01BF6B|$06:$BF5B:18      	CLC        	; CLC to flag Return allowed for calling code
0x01BF6C|$06:$BF5C:60      	RTS        

; SEC to flag Return disallowed for calling code
; control flow target (from $BF3C, $BF40, $BF44, $BF48)
0x01BF6D|$06:$BF5D:38      	SEC        
0x01BF6E|$06:$BF5E:60      	RTS        

; disembark from ship and update ship position based on last save point ID $48
; control flow target (from $BEF4, $BF4A)
0x01BF6F|$06:$BF5F:A5 CF   	LDA $CF    	; ship status (#$04 = on ship, #$02 = own ship, #$01 = beat Lianport Gremlins)
0x01BF71|$06:$BF61:29 03   	AND #$03   
0x01BF73|$06:$BF63:85 CF   	STA $CF    	; ship status (#$04 = on ship, #$02 = own ship, #$01 = beat Lianport Gremlins)
0x01BF75|$06:$BF65:A5 48   	LDA $48    	; last save point ID
0x01BF77|$06:$BF67:0A      	ASL        
0x01BF78|$06:$BF68:A8      	TAY        
0x01BF79|$06:$BF69:B9 74 BF	LDA $BF74,Y	; ship X-pos after warp
0x01BF7C|$06:$BF6C:85 D2   	STA $D2    	; ship X-pos (when you aren't on it)
0x01BF7E|$06:$BF6E:B9 75 BF	LDA $BF75,Y	; ship Y-pos after warp
0x01BF81|$06:$BF71:85 D3   	STA $D3    	; ship Y-pos (when you aren't on it)
0x01BF83|$06:$BF73:60      	RTS        


; code -> data
; ship X-pos after warp
; indexed data load target (from $BF69)
0x01BF84|$06:$BF74:D4
; ship Y-pos after warp
; indexed data load target (from $BF6E)
0x01BF85|$06:$BF75:   3C	; Save Point ID #$00: Midenhall 2F
0x01BF86|$06:$BF76:A4 09	; Save Point ID #$01: Cannock
; indirect data load target
0x01BF88|$06:$BF78:3B 2E	; Save Point ID #$02: Tantegel
0x01BF8A|$06:$BF7A:DA 91	; Save Point ID #$03: Osterfair
0x01BF8C|$06:$BF7C:1F C5	; Save Point ID #$04: Beran
0x01BF8E|$06:$BF7E:1F C5	; Save Point ID #$05: Rhone Shrine
0x01BF90|$06:$BF80:78 58	; Save Point ID #$06: Hamlin
; dungeon first floors
; indexed data load target (from $BF1B, $BF26)
0x01BF92|$06:$BF82:2B	; Map ID #$2B: Cave to Hamlin
0x01BF93|$06:$BF83:2C	; Map ID #$2C: Lake Cave B1
0x01BF94|$06:$BF84:2E	; Map ID #$2E: Sea Cave B1
0x01BF95|$06:$BF85:34	; Map ID #$34: Charlock Castle B1/B2
0x01BF96|$06:$BF86:37	; Map ID #$37: Cave to Rhone B1
0x01BF97|$06:$BF87:40	; Map ID #$40: Spring of Bravery
0x01BF98|$06:$BF88:43	; Map ID #$43: Cave to Rimuldar
0x01BF99|$06:$BF89:44	; Map ID #$44: Hargon's Castle 2F
0x01BF9A|$06:$BF8A:49	; Map ID #$49: Moon Tower 1F
0x01BF9B|$06:$BF8B:50	; Map ID #$50: Lighthouse 1F
0x01BF9C|$06:$BF8C:58	; Map ID #$58: Wind Tower 1F
0x01BF9D|$06:$BF8D:60	; Map ID #$60: Dragon Horn South 1F
0x01BF9E|$06:$BF8E:66	; Map ID #$66: Dragon Horn North 1F
; pointer to warp point data used when casting Outside
; indexed data load target (from $BF2E)
; indirect data load target
0x01BF9F|$06:$BF8F:A8
; indexed data load target (from $BF33)
0x01BFA0|$06:$BF90:   A2	; $02:$A2A8; Map ID #$2B: Cave to Hamlin
0x01BFA1|$06:$BF91:CF A2	; $02:$A2CF; Map ID #$2C: Lake Cave B1
0x01BFA3|$06:$BF93:D2 A2	; $02:$A2D2; Map ID #$2E: Sea Cave B1
0x01BFA5|$06:$BF95:D8 A2	; $02:$A2D8; Map ID #$34: Charlock Castle B1/B2
0x01BFA7|$06:$BF97:DE A2	; $02:$A2DE; Map ID #$37: Cave to Rhone B1
0x01BFA9|$06:$BF99:ED A2	; $02:$A2ED; Map ID #$40: Spring of Bravery
0x01BFAB|$06:$BF9B:EA A2	; $02:$A2EA; Map ID #$43: Cave to Rimuldar
0x01BFAD|$06:$BF9D:A2 A2	; $02:$A2A2; Map ID #$44: Hargon's Castle 2F
0x01BFAF|$06:$BF9F:E1 A2	; $02:$A2E1; Map ID #$49: Moon Tower 1F
0x01BFB1|$06:$BFA1:DB A2	; $02:$A2DB; Map ID #$50: Lighthouse 1F
0x01BFB3|$06:$BFA3:D5 A2	; $02:$A2D5; Map ID #$58: Wind Tower 1F
0x01BFB5|$06:$BFA5:E4 A2	; $02:$A2E4; Map ID #$60: Dragon Horn South 1F
0x01BFB7|$06:$BFA7:E7 A2	; $02:$A2E7; Map ID #$66: Dragon Horn North 1F
; pointer to warp point data used when casting Return
; indexed data load target (from $BF51)
; indirect data load target
0x01BFB9|$06:$BFA9:69
; indexed data load target (from $BF56)
0x01BFBA|$06:$BFAA:   A2	; $02:$A269; warp point data (map ID, X-pos, Y-pos) used when casting Return; Save Point ID #$00: Midenhall 2F
0x01BFBB|$06:$BFAB:6C A2	; $02:$A26C; Save Point ID #$01: Cannock
0x01BFBD|$06:$BFAD:6F A2	; $02:$A26F; Save Point ID #$02: Tantegel
0x01BFBF|$06:$BFAF:72 A2	; $02:$A272; Save Point ID #$03: Osterfair
0x01BFC1|$06:$BFB1:75 A2	; $02:$A275; Save Point ID #$04: Beran
0x01BFC3|$06:$BFB3:78 A2	; $02:$A278; Save Point ID #$05: Rhone Shrine
0x01BFC5|$06:$BFB5:7B A2	; $02:$A27B; Save Point ID #$06: Hamlin

; data -> free
; indirect data load target
0x01BFC7|$06:$BFB7:FF
; ... skipping $1F FF bytes
; indirect data load target
0x01BFE7|$06:$BFD7:FF

; free -> unknown
0x01BFE8|$06:$BFD8:78      	; SEI        
0x01BFE9|$06:$BFD9:EE DF BF	; INC $BFDF  
0x01BFEA|$06:$BFDA:DF      	; INVALID OPCODE
0x01BFEB|$06:$BFDB:BF      	; INVALID OPCODE
0x01BFEC|$06:$BFDC:4C 86 FF	; JMP $FF86  
0x01BFED|$06:$BFDD:86 FF   	; STX $FF    
0x01BFEE|$06:$BFDE:FF      	; INVALID OPCODE
0x01BFEF|$06:$BFDF:80      	; INVALID OPCODE
0x01BFF0|$06:$BFE0:44      	; INVALID OPCODE
0x01BFF1|$06:$BFE1:52      	; INVALID OPCODE
0x01BFF2|$06:$BFE2:41 47   	; EOR ($47,X)
0x01BFF3|$06:$BFE3:47      	; INVALID OPCODE
0x01BFF4|$06:$BFE4:4F      	; INVALID OPCODE
0x01BFF5|$06:$BFE5:4E 20 57	; LSR $5720  
0x01BFF6|$06:$BFE6:20 57 41	; JSR $4157  
0x01BFF7|$06:$BFE7:57      	; INVALID OPCODE
0x01BFF8|$06:$BFE8:41 52   	; EOR ($52,X)
0x01BFF9|$06:$BFE9:52      	; INVALID OPCODE
0x01BFFA|$06:$BFEA:52      	; INVALID OPCODE
0x01BFFB|$06:$BFEB:49 4F   	; EOR #$4F   
0x01BFFC|$06:$BFEC:4F      	; INVALID OPCODE
0x01BFFD|$06:$BFED:52      	; INVALID OPCODE
0x01BFFE|$06:$BFEE:53      	; INVALID OPCODE
0x01BFFF|$06:$BFEF:32      	; INVALID OPCODE
0x01C000|$06:$BFF0:FF      	; INVALID OPCODE
0x01C001|$06:$BFF1:FF      	; INVALID OPCODE
0x01C002|$06:$BFF2:00      	; BRK        
0x01C003|$06:$BFF3:00      	; BRK        
0x01C004|$06:$BFF4:48      	; PHA        
0x01C005|$06:$BFF5:04      	; INVALID OPCODE
0x01C006|$06:$BFF6:01 0F   	; ORA ($0F,X)
0x01C007|$06:$BFF7:0F      	; INVALID OPCODE
0x01C008|$06:$BFF8:07      	; INVALID OPCODE
0x01C009|$06:$BFF9:9D D8 BF	; STA $BFD8,X
0x01C00A|$06:$BFFA:D8      	; CLD        
0x01C00B|$06:$BFFB:BF      	; INVALID OPCODE
0x01C00C|$06:$BFFC:D8      	; CLD        
0x01C00D|$06:$BFFD:BF      	; INVALID OPCODE
0x01C00E|$06:$BFFE:D8      	; CLD        
0x01C00F|$06:$BFFF:BF      	; INVALID OPCODE